changeset 54778:edec41928fc8

* replace.el (occur-engine): Distinguish between one and several matches in the matches per buffer heading.
author John Paul Wallington <jpw@pobox.com>
date Sun, 11 Apr 2004 04:57:02 +0000
parents 5745bf089073
children d800ac53ee63
files lisp/replace.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Sun Apr 11 00:14:53 2004 +0000
+++ b/lisp/replace.el	Sun Apr 11 04:57:02 2004 +0000
@@ -916,8 +916,9 @@
 		(goto-char headerpt)
 		(let ((beg (point))
 		      end)
-		  (insert (format "%d matches for \"%s\" in buffer: %s\n"
-				  matches regexp (buffer-name buf)))
+		  (insert (format "%d match%s for \"%s\" in buffer: %s\n"
+				  matches (if (= matches 1) "" "es")
+				  regexp (buffer-name buf)))
 		  (setq end (point))
 		  (add-text-properties beg end
 				       (append