[Emacs-diffs] Changes to emacs/lisp/ls-lisp.el

[Eli Zaretskii]

Index: emacs/lisp/ls-lisp.el
diff -c emacs/lisp/ls-lisp.el:1.40 emacs/lisp/ls-lisp.el:1.41
*** emacs/lisp/ls-lisp.el:1.40  Thu Dec 20 13:41:43 2001
--- emacs/lisp/ls-lisp.el       Fri Dec 21 10:21:27 2001
***************
*** 200,206 ****
          (if (memq ?B switches) (setq wildcard "[^~]\\'")))
        (ls-lisp-insert-directory
         file switches (ls-lisp-time-index switches)
!        wildcard full-directory-p)))))
  
  (defun ls-lisp-insert-directory
    (file switches time-index wildcard full-directory-p)
--- 200,217 ----
          (if (memq ?B switches) (setq wildcard "[^~]\\'")))
        (ls-lisp-insert-directory
         file switches (ls-lisp-time-index switches)
!        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)