diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-02-02 04:20:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-02-02 04:20:36 +0000 |
| commit | 689f439402b28c1bc9c31bf0d397df8ef04b5dd4 (patch) | |
| tree | 8cada07b1191d1ea9196cbf17d55ade3fa4fcf3b /lisp/replace.el | |
| parent | 39d58fc0349c779b3b369154c140d0c7c1e843a2 (diff) | |
| download | emacs-689f439402b28c1bc9c31bf0d397df8ef04b5dd4.tar.gz | |
(multi-occur-in-matching-buffers): Fix prev change.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 8a17104c599..92b4be7fd7b 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1004,7 +1004,7 @@ See also `multi-occur'." (let* ((default (car regexp-history)) (input (read-from-minibuffer - (if allbufs + (if current-prefix-arg "List lines in buffers whose names match regexp: " "List lines in buffers whose filenames match regexp: ") nil @@ -1016,7 +1016,7 @@ See also `multi-occur'." input)) (occur-read-primary-args))) (when bufregexp - (occur-1 regexp nlines + (occur-1 regexp nil (delq nil (mapcar (lambda (buf) (when (if allbufs |