mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-01 18:52:51 -07:00
Code Issues Projects Releases Wiki Activity

(insert-directory): List the total free space

Browse source 
along with the used space.
This commit is contained in:
Gerd Moellmann 2000-04-03 19:26:43 +00:00
parent 36c5e6177b
commit 18f183760f
1 changed files with 20 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/files.el
View file

@ -3351,8 +3351,26 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
(if (/= result 0)
;; We get here if ls failed.
;; Access the file to get a suitable error.
(access-file file "Reading directory")))))))
(access-file file "Reading directory")
;; Replace "total" with "used", to avoid confusion.
;; Add in the amount of free space.
(save-excursion
(goto-char (point-min))
(when (re-search-forward "^total" nil t)
(replace-match "used")
(end-of-line)
(let (available)
(with-temp-buffer
(call-process "df" nil t nil ".")
(goto-char (point-min))
(forward-line 1)
(skip-chars-forward "^ \t")
(forward-word 3)
(let ((end (point)))
(forward-word -1)
(setq available (buffer-substring (point) end))))
(insert " available " available))))))))))
(defvar kill-emacs-query-functions nil
"Functions to call with no arguments to query about killing Emacs.
If any of these functions returns nil, killing Emacs is cancelled.