Mercurial > emacs
changeset 1755:83734c185e01
(dired-regexp-history): New history list.
(dired-read-regexp): Use that history list. Take just one arg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 09 Jan 1993 13:53:49 +0000 |
| parents | 71e65e9d4f86 |
| children | ffef0718ef6b |
| files | lisp/dired.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Sat Jan 09 00:01:00 1993 +0000 +++ b/lisp/dired.el Sat Jan 09 13:53:49 1993 +0000 @@ -1605,10 +1605,11 @@ ;;; 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.