Mercurial > emacs

diff lisp/emacs-lisp/re-builder.el @ 89953:029a652ac817

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-23 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-442 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-444 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-445 Tweak permissions * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-446 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-450 Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 11 Jul 2004 22:08:06 +0000
parents 4c90ffeb71c5 a4c0ce40be3d
children 3fd4a5c21153
line wrap: on
line diff
--- a/lisp/emacs-lisp/re-builder.el	Tue Jul 06 02:57:15 2004 +0000
+++ b/lisp/emacs-lisp/re-builder.el	Sun Jul 11 22:08:06 2004 +0000
@@ -670,9 +670,10 @@
 		  (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)" "")))