# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1024998866 0
# Node ID 43acdf05b0cf9dcc6defbf6ebddd8177e8162c2b
# Parent  503e1f14ba3dfac64cc6dc30269d2f757e69fbb6
(occur-1): Avoid invalid message format string.

diff -r 503e1f14ba3d -r 43acdf05b0cf lisp/replace.el
--- a/lisp/replace.el	Tue Jun 25 01:09:52 2002 +0000
+++ b/lisp/replace.el	Tue Jun 25 09:54:26 2002 +0000
@@ -704,22 +704,14 @@
 			 (isearch-no-upper-case-p regexp t))
 		    list-matching-lines-buffer-name-face
 		    nil list-matching-lines-face nil)))
-	(let* ((diff (- (length bufs) (length active-bufs)))
-	       (bufcount (- (length bufs) diff))
-	       (msg (concat
-		     (format "Searched %d buffer%s" bufcount (if (= bufcount 1) "" "s"))
-		     "%s; "
-		     (format "%s match%s for `%s'"
-			     (if (zerop count)
-				 "no"
-			       (format "%d" count))
-			     (if (= count 1)
-				 ""
-			       "es")
-			     regexp))))
-	  (message msg (if (zerop diff)
-			   ""
-			 (format " (%d killed)" diff))))
+	(let* ((bufcount (length active-bufs))
+	       (diff (- (length bufs) bufcount)))
+	  (message "Searched %d buffer%s%s; %s match%s for `%s'"
+		   bufcount (if (= bufcount 1) "" "s")
+		   (if (zerop diff) "" (format " (%d killed)" diff))
+		   (if (zerop count) "no" (format "%d" count))
+		   (if (= count 1) "" "es")
+		   regexp))
 	;; If we had to make a temporary buffer, make it the *Occur*
 	;; buffer now.
 	(when made-temp-buf