Function: dired-mark-prompt

dired-mark-prompt is a byte-compiled function defined in dired.el.gz.

Signature

(dired-mark-prompt ARG FILES)

Documentation

Return a string suitable for use in a Dired prompt.

ARG is normally the prefix argument for the calling command. FILES should be a list of file names.

The return value has a form like "foo.txt", "[next 3 files]", or "* [3 files]".

Source Code

;; Defined in /usr/src/emacs/lisp/dired.el.gz
(defun dired-mark-prompt (arg files)
  "Return a string suitable for use in a Dired prompt.
ARG is normally the prefix argument for the calling command.
FILES should be a list of file names.

The return value has a form like \"foo.txt\", \"[next 3 files]\",
or \"* [3 files]\"."
  ;; distinguish-one-marked can cause the first element to be just t.
  (if (eq (car files) t) (setq files (cdr files)))
  (let ((count (length files)))
    (if (= count 1)
	(car files)
      ;; more than 1 file:
      (if (integerp arg)
	  ;; abs(arg) = count
	  ;; Perhaps this is nicer, but it also takes more screen space:
	  ;;(format "[%s %d files]" (if (> arg 0) "next" "previous")
	  ;;                        count)
	  (format "[next %d files]" arg)
	(format "%c [%d files]" dired-marker-char count)))))