mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/files.el (file-size-function): Add :version tag

Browse source
This commit is contained in:
Oleh Krehel 2019-07-20 19:22:51 +02:00
parent 189296bfcc
commit 45fc6f203e
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/files.el
View file

@ -6700,11 +6700,12 @@ This variable is obsolete; Emacs no longer uses it."
(defcustom file-size-function #'file-size-human-readable
"Function that transforms the number of bytes into a human-readable string."
:type '(choice
(const :tag "default" file-size-human-readable)
(const :tag "iec"
(lambda (size) (file-size-human-readable size 'iec " ")))
(function :tag "Custom function")))
:type `(radio
(function-item :tag "Default" file-size-human-readable)
(function-item :tag "IEC"
,(lambda (size) (file-size-human-readable size 'iec " ")))
(function :tag "Custom function"))
:version "27.1")
(defun get-free-disk-space (dir)
"String describing the amount of free space on DIR's file system.