diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-01-09 13:53:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-01-09 13:53:49 +0000 |
| commit | d2cadc4b9d55cb0c8f26c74a197d17bfd5f618b0 (patch) | |
| tree | b2c3d73d06901637cf17c3f06d46ade3938fe2ea /lisp | |
| parent | d680e99c81e49f98879b3129abe4cad2c52dc7ec (diff) | |
| download | emacs-d2cadc4b9d55cb0c8f26c74a197d17bfd5f618b0.tar.gz emacs-d2cadc4b9d55cb0c8f26c74a197d17bfd5f618b0.tar.bz2 emacs-d2cadc4b9d55cb0c8f26c74a197d17bfd5f618b0.zip | |
(dired-regexp-history): New history list.
(dired-read-regexp): Use that history list. Take just one arg.
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. |