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) |