aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2001-12-30 17:08:39 +0000
committerEli Zaretskii2001-12-30 17:08:39 +0000
commit7ad0c1c3217f7e2b47ebd07a2bec02a9e04f7685 (patch)
tree9f627c3336d5d26fa4e13e97e50393cc7c3c02bd
parent34ef66ac9ed0d2e9eb7e32cf73d8236f0b261b08 (diff)
downloademacs-7ad0c1c3217f7e2b47ebd07a2bec02a9e04f7685.tar.gz
emacs-7ad0c1c3217f7e2b47ebd07a2bec02a9e04f7685.zip
(insert-directory): Modify the "total" line wording, in accordance with
files.el's insert-directory.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/ls-lisp.el4
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 352ebf3e518..b6c8ec665f3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12001-12-30 Eli Zaretskii <eliz@is.elta.co.il>
2
3 * ls-lisp.el (insert-directory): Modify the "total" line wording,
4 in accordance with files.el's insert-directory.
5
12001-12-29 Richard M. Stallman <rms@gnu.org> 62001-12-29 Richard M. Stallman <rms@gnu.org>
2 7
3 * files.el (basic-save-buffer): If a before-write hook displays 8 * files.el (basic-save-buffer): If a before-write hook displays
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 53057dab07f..28538a62721 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -208,8 +208,8 @@ that work are: A a c i r S s t u U X g G B C R and F partly."
208 (when (re-search-forward "^total" nil t) 208 (when (re-search-forward "^total" nil t)
209 (let ((available (get-free-disk-space "."))) 209 (let ((available (get-free-disk-space ".")))
210 (when available 210 (when available
211 ;; Replace "total" with "used", to avoid confusion. 211 ;; Replace "total" with "total used", to avoid confusion.
212 (replace-match "used") 212 (replace-match "total used in directory")
213 (end-of-line) 213 (end-of-line)
214 (insert " available " available))))))))) 214 (insert " available " available)))))))))
215 215