From: John Paul Wallington <jpw@pobox.com>
Date: Fri, 9 Jul 2004 17:16:59 +0000 (+0000)
Subject: (reb-update-overlays): Distinguish between one and several matches in message.
X-Git-Tag: ttn-vms-21-2-B4~5518
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c20a7a9bb8d0d9b9a0846c2278c9ad23640c18a;p=emacs.git

(reb-update-overlays): Distinguish between one and several matches in message.
---

diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el
index 83d3649006e..c6112c4a105 100644
--- a/lisp/emacs-lisp/re-builder.el
+++ b/lisp/emacs-lisp/re-builder.el
@@ -670,9 +670,10 @@ If SUBEXP is non-nil mark only the corresponding sub-expressions."
 		  (overlay-put overlay 'priority i)))
 	    (setq i (1+ i))))))
     (let ((count (if subexp submatches matches)))
-      (message"%s %smatch(es)%s"
+      (message"%s %smatch%s%s"
 	       (if (= 0 count) "No" (int-to-string count))
 	       (if subexp "subexpression " "")
+	       (if (= 1 count) "" "es")
 	       (if (and reb-auto-match-limit
 			(= reb-auto-match-limit count))
 		   " (limit reached)" "")))