From b663fbcd065d8b29c93555cf9e6cf8582452983b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Fri, 19 Jul 2019 11:16:46 +0200 Subject: [PATCH] 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 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 -- 2.39.2