procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(insert-directory): Insert free space only when listing a full directory.

Browse source
This commit is contained in:
Andreas Schwab 2002-12-08 13:20:42 +00:00
parent 2c4396c417
commit 75bb5ca4dc
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/files.el
View file

@ -4104,17 +4104,18 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
(beginning-of-line)
(delete-region (point) (progn (forward-line 2) (point)))))
;; Try to insert the amount of free space.
(save-excursion
(goto-char beg)
;; First find the line to put it on.
(when (re-search-forward "^ *\\(total\\)" nil t)
(let ((available (get-free-disk-space ".")))
(when available
;; Replace "total" with "used", to avoid confusion.
(replace-match "total used in directory" nil nil nil 1)
(end-of-line)
(insert " available " available))))))))))
(if full-directory-p
;; Try to insert the amount of free space.
(save-excursion
(goto-char beg)
;; First find the line to put it on.
(when (re-search-forward "^ *\\(total\\)" nil t)
(let ((available (get-free-disk-space ".")))
(when available
;; Replace "total" with "used", to avoid confusion.
(replace-match "total used in directory" nil nil nil 1)
(end-of-line)
(insert " available " available)))))))))))
(defun insert-directory-safely (file switches
&optional wildcard full-directory-p)