diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dired.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 4ec1907df1f..1687dc6d002 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -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. |