# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1081659422 0
# Node ID edec41928fc8dc1b5db8cdc7579e0677cf3f314d
# Parent  5745bf089073f563168fd9bd0d717f6fe42d22c7
* replace.el (occur-engine): Distinguish between one and several
matches in the matches per buffer heading.

diff -r 5745bf089073 -r edec41928fc8 lisp/replace.el
--- 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