aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/files.el5
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