mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases 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
Show Stats 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.