[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 45fc6f2: * lisp/files.el (file-size-function): Add
From: |
Oleh Krehel |
Subject: |
[Emacs-diffs] master 45fc6f2: * lisp/files.el (file-size-function): Add :version tag |
Date: |
Sat, 20 Jul 2019 13:38:29 -0400 (EDT) |
branch: master
commit 45fc6f203e2fef528cb2bb0d7c0140e160c974e2
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
* lisp/files.el (file-size-function): Add :version tag
---
lisp/files.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/lisp/files.el b/lisp/files.el
index 89e9a69..70865eb 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 45fc6f2: * lisp/files.el (file-size-function): Add :version tag,
Oleh Krehel <=