diff options
| author | Oleh Krehel | 2019-07-18 14:53:11 +0200 |
|---|---|---|
| committer | Oleh Krehel | 2019-07-18 14:54:09 +0200 |
| commit | a4e57274cc3ad920d6113700ce6496e85eb66ebb (patch) | |
| tree | ad7102d0b9f3fe4dc0a29deced017ef6f4c5ae9c | |
| parent | cdf8a4f920bfebb85bac4098504d740aaf942c66 (diff) | |
| download | emacs-a4e57274cc3ad920d6113700ce6496e85eb66ebb.tar.gz emacs-a4e57274cc3ad920d6113700ce6496e85eb66ebb.zip | |
* 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")
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 6705 | (save-match-data | 6705 | (save-match-data |
| 6706 | (let ((avail (nth 2 (file-system-info dir)))) | 6706 | (let ((avail (nth 2 (file-system-info dir)))) |
| 6707 | (if avail | 6707 | (if avail |
| 6708 | (format "%.0f" (/ avail 1024)))))) | 6708 | (file-size-human-readable avail))))) |
| 6709 | 6709 | ||
| 6710 | ;; The following expression replaces `dired-move-to-filename-regexp'. | 6710 | ;; The following expression replaces `dired-move-to-filename-regexp'. |
| 6711 | (defvar directory-listing-before-filename-regexp | 6711 | (defvar directory-listing-before-filename-regexp |