From: Oleh Krehel <ohwoeowho@gmail.com>
Date: Thu, 18 Jul 2019 12:53:11 +0000 (+0200)
Subject: * lisp/files.el (get-free-disk-space): Use file-size-human-readable
X-Git-Tag: emacs-27.0.90~1866
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4e57274cc3ad920d6113700ce6496e85eb66ebb;p=emacs.git

* lisp/files.el (get-free-disk-space): Use file-size-human-readable

Since there is no longer an option to do:

    (setq directory-free-space-args "-Pmh")
---

diff --git a/lisp/files.el b/lisp/files.el
index f76b08f4cb7..3c5905d2164 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6705,7 +6705,7 @@ 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
-	  (format "%.0f" (/ avail 1024))))))
+          (file-size-human-readable avail)))))
 
 ;; The following expression replaces `dired-move-to-filename-regexp'.
 (defvar directory-listing-before-filename-regexp