emacs-diffs
[Top][All Lists]
Advanced

[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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]