From: Eli Zaretskii Date: Sun, 30 Dec 2001 17:08:39 +0000 (+0000) Subject: (insert-directory): Modify the "total" line wording, in accordance with X-Git-Tag: ttn-vms-21-2-B4~17406 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ad0c1c3217f7e2b47ebd07a2bec02a9e04f7685;p=emacs.git (insert-directory): Modify the "total" line wording, in accordance with files.el's insert-directory. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 352ebf3e518..b6c8ec665f3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-12-30 Eli Zaretskii + + * ls-lisp.el (insert-directory): Modify the "total" line wording, + in accordance with files.el's insert-directory. + 2001-12-29 Richard M. Stallman * 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." (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)))))))))