comparison lisp/dired.el @ 1755:83734c185e01

(dired-regexp-history): New history list. (dired-read-regexp): Use that history list. Take just one arg.

1754:71e65e9d4f86

  (interactive "p")
  (dired-unmark (- arg)))

;;; Commands to mark or flag files based on their characteristics or names.

(defun dired-read-regexp (prompt &optional initial)
;; This is an extra function so that gmhist can redefine it.
  (setq dired-flagging-regexp
	(read-string prompt (or initial dired-flagging-regexp))))

(defun dired-mark-files-regexp (regexp &optional marker-char)
  "Mark all files matching REGEXP for use in later commands.
A prefix argument means to unmark them instead.
`.' and `..' are never marked.

1755:83734c185e01

  (interactive "p")
  (dired-unmark (- arg)))

;;; Commands to mark or flag files based on their characteristics or names.

(defvar dired-regexp-history nil
  "History list of regular expressions used in Dired commands.")

(defun dired-read-regexp (prompt)
  (read-from-minibuffer prompt nil nil nil 'dired-regexp-history))

(defun dired-mark-files-regexp (regexp &optional marker-char)
  "Mark all files matching REGEXP for use in later commands.
A prefix argument means to unmark them instead.
`.' and `..' are never marked.