(insert-directory): Modify the "total" line wording, in accordance with

files.el's insert-directory.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 352ebf3e5180143c20f570507856b0a42d0df337..b6c8ec665f378b4bbde9bb7f0fc937e02c0c35d0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-30  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * ls-lisp.el (insert-directory): Modify the "total" line wording,
+       in accordance with files.el's insert-directory.
+
 2001-12-29  Richard M. Stallman  <rms@gnu.org>
 
        * files.el (basic-save-buffer): If a before-write hook displays

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 53057dab07fa67c3bc93fd34a657937b889c4cb5..28538a62721d592d3cb7c7411d360f9a36e046a0 100644 (file)
--- 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."
          (when (re-search-forward "^total" nil t)
            (let ((available (get-free-disk-space ".")))
              (when available
-               ;; Replace "total" with "used", to avoid confusion.
-               (replace-match "used")
+               ;; Replace "total" with "total used", to avoid confusion.
+               (replace-match "total used in directory")
                (end-of-line)
                (insert " available " available)))))))))