Function: dired-mark-read-regexp

dired-mark-read-regexp is a byte-compiled function defined in dired-aux.el.gz.

Signature

(dired-mark-read-regexp OPERATION)

Source Code

;; Defined in /usr/src/emacs/lisp/dired-aux.el.gz
(defun dired-mark-read-regexp (operation)
  ;; Prompt user about performing OPERATION.
  ;; Read and return list of: regexp newname arg whole-name.
  (let* ((whole-name
	  (equal 0 (prefix-numeric-value current-prefix-arg)))
	 (arg
	  (if whole-name nil current-prefix-arg))
	 (regexp
	  (read-regexp
	   (concat (if whole-name "Abs. " "") operation " from (regexp): ")
	   nil 'dired-regexp-history))
	 (newname
	  (read-string
	   (concat (if whole-name "Abs. " "") operation " " regexp " to: "))))
    (list regexp newname arg whole-name)))