From 18f183760f2a3ae71c42d8fe95ad4d96d4c0dafb Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 3 Apr 2000 19:26:43 +0000 Subject: [PATCH] (insert-directory): List the total free space along with the used space. --- lisp/files.el | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 8873fadb2fc..9de7c0ba8ea 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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. -- 2.39.5