diff options
| author | Richard M. Stallman | 1993-01-09 13:53:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-01-09 13:53:49 +0000 |
| commit | d2cadc4b9d55cb0c8f26c74a197d17bfd5f618b0 (patch) | |
| tree | b2c3d73d06901637cf17c3f06d46ade3938fe2ea | |
| parent | d680e99c81e49f98879b3129abe4cad2c52dc7ec (diff) | |
| download | emacs-d2cadc4b9d55cb0c8f26c74a197d17bfd5f618b0.tar.gz emacs-d2cadc4b9d55cb0c8f26c74a197d17bfd5f618b0.zip | |
(dired-regexp-history): New history list.
(dired-read-regexp): Use that history list. Take just one arg.
| -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." | |||
| 1605 | 1605 | ||
| 1606 | ;;; Commands to mark or flag files based on their characteristics or names. | 1606 | ;;; Commands to mark or flag files based on their characteristics or names. |
| 1607 | 1607 | ||
| 1608 | (defun dired-read-regexp (prompt &optional initial) | 1608 | (defvar dired-regexp-history nil |
| 1609 | ;; This is an extra function so that gmhist can redefine it. | 1609 | "History list of regular expressions used in Dired commands.") |
| 1610 | (setq dired-flagging-regexp | 1610 | |
| 1611 | (read-string prompt (or initial dired-flagging-regexp)))) | 1611 | (defun dired-read-regexp (prompt) |
| 1612 | (read-from-minibuffer prompt nil nil nil 'dired-regexp-history)) | ||
| 1612 | 1613 | ||
| 1613 | (defun dired-mark-files-regexp (regexp &optional marker-char) | 1614 | (defun dired-mark-files-regexp (regexp &optional marker-char) |
| 1614 | "Mark all files matching REGEXP for use in later commands. | 1615 | "Mark all files matching REGEXP for use in later commands. |