diff options
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 2c45a8b1078..a384e7136e8 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -7153,10 +7153,11 @@ normally equivalent short `-D' option is just passed on to | |||
| 7153 | (goto-char beg) | 7153 | (goto-char beg) |
| 7154 | ;; First find the line to put it on. | 7154 | ;; First find the line to put it on. |
| 7155 | (when (re-search-forward "^ *\\(total\\)" nil t) | 7155 | (when (re-search-forward "^ *\\(total\\)" nil t) |
| 7156 | ;; Replace "total" with "total used in directory" to | ||
| 7157 | ;; avoid confusion. | ||
| 7158 | (replace-match "total used in directory" nil nil nil 1) | ||
| 7156 | (let ((available (get-free-disk-space "."))) | 7159 | (let ((available (get-free-disk-space "."))) |
| 7157 | (when available | 7160 | (when available |
| 7158 | ;; Replace "total" with "used", to avoid confusion. | ||
| 7159 | (replace-match "total used in directory" nil nil nil 1) | ||
| 7160 | (end-of-line) | 7161 | (end-of-line) |
| 7161 | (insert " available " available)))))))))) | 7162 | (insert " available " available)))))))))) |
| 7162 | 7163 | ||