andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
files.el's insert-directory.
This commit is contained in:
Eli Zaretskii 2001-12-30 17:08:39 +00:00
parent 34ef66ac9e
commit 7ad0c1c321
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

4
lisp/ls-lisp.el
View file

@ -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)))))))))