mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Neater free disk space formatting

Browse Source 
* lisp/files.el (get-free-disk-space): Update doc string.
Use `iec' style and proper spacing.
This commit is contained in:
Mattias Engdegård 2019-07-19 11:16:46 +02:00
parent 8d34cb3f07
commit b663fbcd06
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/files.el
View File

@ -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