# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 833902261 0
# Node ID 90dc960355d90949d444cfd25abc3fb43a64a6ad
# Parent  2c508f2c884dc83d477325c835a664f51fba9120
(occur): Avoid "1 lines" in echo area.

diff -r 2c508f2c884d -r 90dc960355d9 lisp/replace.el
--- a/lisp/replace.el	Tue Jun 04 15:27:52 1996 +0000
+++ b/lisp/replace.el	Tue Jun 04 15:31:01 1996 +0000
@@ -448,11 +448,13 @@
 	    ;; Put positions in increasing order to go with buffer.
 	    (setq occur-pos-list (nreverse occur-pos-list))
 	    (goto-char (point-min))
-	    (if (= (length occur-pos-list) 1)
-		(insert "1 line")
-	      (insert (format "%d lines" (length occur-pos-list))))
-	    (if (interactive-p)
-		(message "%d matching lines." (length occur-pos-list)))))))))
+	    (let ((message-string
+		   (if (= (length occur-pos-list) 1)
+		       "1 line"
+		     (format "%d lines" (length occur-pos-list)))))
+	      (insert message-string)
+	      (if (interactive-p)
+		  (message "%s matched" message-string)))))))))
 
 ;; It would be nice to use \\[...], but there is no reasonable way
 ;; to make that display both SPC and Y.