diff options
| author | Eli Zaretskii | 2001-12-30 17:08:39 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2001-12-30 17:08:39 +0000 |
| commit | 7ad0c1c3217f7e2b47ebd07a2bec02a9e04f7685 (patch) | |
| tree | 9f627c3336d5d26fa4e13e97e50393cc7c3c02bd | |
| parent | 34ef66ac9ed0d2e9eb7e32cf73d8236f0b261b08 (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2001-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 | |||
| 1 | 2001-12-29 Richard M. Stallman <rms@gnu.org> | 6 | 2001-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 | ||