comparison lisp/dired.el @ 26026:ed3c9dd47f31

(dired-insert-directory): Insert the amount of free space after the total size. (dired-free-space-program, dired-free-space-args): New variables.

26025:1fc4552789ee

;;;###autoload
(defcustom dired-copy-preserve-time t
  "*If non-nil, Dired preserves the last-modified time in a file copy.
\(This works on only some systems.)"
  :type 'boolean
  :group 'dired)

;;; Hook variables

(defvar dired-load-hook nil

	(mapcar
	 (function (lambda (x) (insert-directory x switches wildcard full-p)))
	 (cdr dir-or-list))
      ;; Expand the file name here because it may have been abbreviated
      ;; in dired-noselect.
      (insert-directory (expand-file-name dir-or-list) switches wildcard full-p))
    ;; Quote certain characters, unless ls quoted them for us.
    (if (not (string-match "b" dired-actual-switches))
	(save-excursion
	  (setq end (point-marker))
	  (goto-char opoint)

26026:ed3c9dd47f31

;;;###autoload
(defcustom dired-copy-preserve-time t
  "*If non-nil, Dired preserves the last-modified time in a file copy.
\(This works on only some systems.)"
  :type 'boolean
  :group 'dired)

(defcustom dired-free-space-program "df"
  "*Program to get the amount of free space on a file system.
We assume the output has the format of `df'.
The value of this variable must be just a command name or file name;
if you want to specify options, use `dired-free-space-args'.

A value of nil disables this feature."
  :type '(choice (string :tag "Program") (const :tag "None" nil))
  :group 'dired)

(defcustom dired-free-space-args "-Pk"
  "*Options to use when running `dired-free-space-program'."
  :type 'string
  :group 'dired)

;;; Hook variables

(defvar dired-load-hook nil

	(mapcar
	 (function (lambda (x) (insert-directory x switches wildcard full-p)))
	 (cdr dir-or-list))
      ;; Expand the file name here because it may have been abbreviated
      ;; in dired-noselect.
      (insert-directory (expand-file-name dir-or-list) switches wildcard full-p)
      (when (and full-p dired-free-space-program)
	(save-excursion
	  (goto-char (point-min))
	  (when (re-search-forward "total [0-9]+$" nil t)
	    (insert "  free ")
	    (let ((beg (point)))
	      (call-process dired-free-space-program nil t nil
			    dired-free-space-args
			    (expand-file-name dir-or-list))
	      (goto-char beg)
	      (forward-line 1)
	      (skip-chars-forward "^ \t")
	      (forward-word 2)
	      (skip-chars-forward " \t")
	      (delete-region beg (point))
	      (forward-word 1)
	      (delete-region (point)
			     (progn (forward-line 1) (point))))))))
    ;; Quote certain characters, unless ls quoted them for us.
    (if (not (string-match "b" dired-actual-switches))
	(save-excursion
	  (setq end (point-marker))
	  (goto-char opoint)