diff options
| author | Oleh Krehel | 2019-07-20 19:22:51 +0200 |
|---|---|---|
| committer | Oleh Krehel | 2019-07-20 19:31:07 +0200 |
| commit | 45fc6f203e2fef528cb2bb0d7c0140e160c974e2 (patch) | |
| tree | e314a67159bc16b6831a1dad6c568d2813d3601f | |
| parent | 189296bfcc3ff9fef66ba28e045b2898125120f2 (diff) | |
| download | emacs-45fc6f203e2fef528cb2bb0d7c0140e160c974e2.tar.gz emacs-45fc6f203e2fef528cb2bb0d7c0140e160c974e2.zip | |
* lisp/files.el (file-size-function): Add :version tag
| -rw-r--r-- | lisp/files.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/files.el b/lisp/files.el index 89e9a693d11..70865ebcdf1 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -6700,11 +6700,12 @@ This variable is obsolete; Emacs no longer uses it." | |||
| 6700 | 6700 | ||
| 6701 | (defcustom file-size-function #'file-size-human-readable | 6701 | (defcustom file-size-function #'file-size-human-readable |
| 6702 | "Function that transforms the number of bytes into a human-readable string." | 6702 | "Function that transforms the number of bytes into a human-readable string." |
| 6703 | :type '(choice | 6703 | :type `(radio |
| 6704 | (const :tag "default" file-size-human-readable) | 6704 | (function-item :tag "Default" file-size-human-readable) |
| 6705 | (const :tag "iec" | 6705 | (function-item :tag "IEC" |
| 6706 | (lambda (size) (file-size-human-readable size 'iec " "))) | 6706 | ,(lambda (size) (file-size-human-readable size 'iec " "))) |
| 6707 | (function :tag "Custom function"))) | 6707 | (function :tag "Custom function")) |
| 6708 | :version "27.1") | ||
| 6708 | 6709 | ||
| 6709 | (defun get-free-disk-space (dir) | 6710 | (defun get-free-disk-space (dir) |
| 6710 | "String describing the amount of free space on DIR's file system. | 6711 | "String describing the amount of free space on DIR's file system. |