# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1008948087 0
# Node ID 1e736b882b4f32fda8562bc0e5c80f74324f63c2
# Parent  e79842fc985516716004568c943686fdefe0ff31
(insert-directory): Insert the amount of free disk
space, like files.el's insert-directory does.

diff -r e79842fc9855 -r 1e736b882b4f lisp/ls-lisp.el
--- a/lisp/ls-lisp.el	Fri Dec 21 15:20:42 2001 +0000
+++ b/lisp/ls-lisp.el	Fri Dec 21 15:21:27 2001 +0000
@@ -200,7 +200,18 @@
 	  (if (memq ?B switches) (setq wildcard "[^~]\\'")))
 	(ls-lisp-insert-directory
 	 file switches (ls-lisp-time-index switches)
-	 wildcard full-directory-p)))))
+	 wildcard full-directory-p)
+	;; Try to insert the amount of free space.
+	(save-excursion
+	  (goto-char (point-min))
+	  ;; 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 "used")
+		(end-of-line)
+		(insert " available " available)))))))))
 
 (defun ls-lisp-insert-directory
   (file switches time-index wildcard full-directory-p)