comparison lisp/ls-lisp.el @ 42427:f1a88fb2fb4e

(insert-directory): Modify the "total" line wording, in accordance with files.el's insert-directory.

42426:5e72bcdc23b8

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

42427:f1a88fb2fb4e

	  (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 "total used", to avoid confusion.
		(replace-match "total used in directory")
		(end-of-line)
		(insert " available " available)))))))))

(defun ls-lisp-insert-directory
  (file switches time-index wildcard full-directory-p)