[Emacs-diffs] master b663fbc: Neater free disk space formatting

[Mattias Engdegård]

branch: master
commit b663fbcd065d8b29c93555cf9e6cf8582452983b
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    Neater free disk space formatting
    
    * lisp/files.el (get-free-disk-space): Update doc string.
    Use `iec' style and proper spacing.
---
 lisp/files.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lisp/files.el b/lisp/files.el
index 3c5905d..238aa37 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6697,15 +6697,12 @@ This variable is obsolete; Emacs no longer uses it."
                        "27.1")
 
 (defun get-free-disk-space (dir)
-  "Return the amount of free space on directory DIR's file system.
-The return value is a string describing the amount of free
-space (normally, the number of free 1KB blocks).
-
+  "String describing the amount of free space on DIR's file system.
 If DIR's free space cannot be obtained, this function returns nil."
   (save-match-data
     (let ((avail (nth 2 (file-system-info dir))))
       (if avail
-          (file-size-human-readable avail)))))
+          (file-size-human-readable avail 'iec " ")))))
 
 ;; The following expression replaces `dired-move-to-filename-regexp'.
 (defvar directory-listing-before-filename-regexp