(occur-1): Avoid invalid message format string.

1 files changed, 8 insertions, 16 deletions

diff --git a/lisp/replace.el b/lisp/replace.el
index 6899847be08..a182df02ca4 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -704,22 +704,14 @@ See also `multi-occur'."
 			 (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