Commit d2cadc4b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(dired-regexp-history): New history list.

(dired-read-regexp): Use that history list.  Take just one arg.
parent d680e99c
......@@ -1605,10 +1605,11 @@ Optional prefix ARG says how many lines to unflag; default is one line."
;;; 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))))
(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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment