From: Mattias Engdegård <mattiase@acm.org>
Date: Fri, 19 Jul 2019 09:16:46 +0000 (+0200)
Subject: Neater free disk space formatting
X-Git-Tag: emacs-27.0.90~1855
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b663fbcd065d8b29c93555cf9e6cf8582452983b;p=emacs.git

Neater free disk space formatting

* lisp/files.el (get-free-disk-space): Update doc string.
Use `iec' style and proper spacing.
---

diff --git a/lisp/files.el b/lisp/files.el
index 3c5905d2164..238aa377985 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