/[emacs]/emacs/lisp/ls-lisp.el
ViewVC logotype

Diff of /emacs/lisp/ls-lisp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.40 by pj, Thu Dec 20 18:41:43 2001 UTC revision 1.41 by eliz, Fri Dec 21 15:21:27 2001 UTC
# Line 200  that work are: A a c i r S s t u U X g G Line 200  that work are: A a c i r S s t u U X g G
200            (if (memq ?B switches) (setq wildcard "[^~]\\'")))            (if (memq ?B switches) (setq wildcard "[^~]\\'")))
201          (ls-lisp-insert-directory          (ls-lisp-insert-directory
202           file switches (ls-lisp-time-index switches)           file switches (ls-lisp-time-index switches)
203           wildcard full-directory-p)))))           wildcard full-directory-p)
204            ;; Try to insert the amount of free space.
205            (save-excursion
206              (goto-char (point-min))
207              ;; First find the line to put it on.
208              (when (re-search-forward "^total" nil t)
209                (let ((available (get-free-disk-space ".")))
210                  (when available
211                    ;; Replace "total" with "used", to avoid confusion.
212                    (replace-match "used")
213                    (end-of-line)
214                    (insert " available " available)))))))))
215    
216  (defun ls-lisp-insert-directory  (defun ls-lisp-insert-directory
217    (file switches time-index wildcard full-directory-p)    (file switches time-index wildcard full-directory-p)

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26