1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00

(multi-occur-in-matching-buffers): Fix prev change.

This commit is contained in:
Richard M. Stallman 2006-02-02 04:20:36 +00:00
parent 39d58fc034
commit 689f439402

View File

@ -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