# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 954790003 0
# Node ID d687186356636e000eaf408f3edabb1a9dbbfc34
# Parent  653e53467c66aac19560bd28088cb5af104e6b9d
(insert-directory): List the total free space
along with the used space.

diff -r 653e53467c66 -r d68718635663 lisp/files.el
--- a/lisp/files.el	Mon Apr 03 19:25:08 2000 +0000
+++ b/lisp/files.el	Mon Apr 03 19:26:43 2000 +0000
@@ -3351,8 +3351,26 @@
 	  (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.