# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1138854036 0
# Node ID 4bad00cd1b68b55b5dc005c145aeb57fc677a2b8
# Parent  6fef36718f37c70c65872c6c25e4dee5d94e9ade
(multi-occur-in-matching-buffers): Fix prev change.

diff -r 6fef36718f37 -r 4bad00cd1b68 lisp/replace.el
--- 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