Mercurial > emacs

diff lisp/replace.el @ 68536:4bad00cd1b68

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(multi-occur-in-matching-buffers): Fix prev change.
author Richard M. Stallman <rms@gnu.org>
date Thu, 02 Feb 2006 04:20:36 +0000
parents 5e010e843834
children 3bd95f4f2941 d6f8fe3307c8
line wrap: on
line diff
--- a/lisp/replace.el	Thu Feb 02 01:07:11 2006 +0000
+++ b/lisp/replace.el	Thu Feb 02 04:20:36 2006 +0000
@@ -1004,7 +1004,7 @@
     (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 @@
 	input))
     (occur-read-primary-args)))
   (when bufregexp
-    (occur-1 regexp nlines
+    (occur-1 regexp nil
 	     (delq nil
 		   (mapcar (lambda (buf)
 			     (when (if allbufs