From 7ad0c1c3217f7e2b47ebd07a2bec02a9e04f7685 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 30 Dec 2001 17:08:39 +0000 Subject: [PATCH] (insert-directory): Modify the "total" line wording, in accordance with files.el's insert-directory. --- lisp/ChangeLog | 5 +++++ lisp/ls-lisp.el | 4 ++-- 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 @@ +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))))))))) -- 2.39.2