diff options
| author | John Paul Wallington <jpw@pobox.com> | 2004-04-11 04:57:44 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2004-04-11 04:57:44 +0000 |
| commit | dbed3cd3c02a9528123896291d2e849d37053e48 (patch) | |
| tree | 08904e91b2e26baa24a095f85b1fc109133a782f /lisp/replace.el | |
| parent | 00991494b5bf6a389bc715c45e2861869399c0fc (diff) | |
| download | emacs-dbed3cd3c02a9528123896291d2e849d37053e48.tar.gz | |
* replace.el (occur-engine): Distinguish between one and several
matches in the matches per buffer heading.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index d8d642261e4..2d26cb5cc66 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -916,8 +916,9 @@ See also `multi-occur'." (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 |