diff options
| author | John Paul Wallington <jpw@pobox.com> | 2004-07-09 17:16:59 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2004-07-09 17:16:59 +0000 |
| commit | 7c20a7a9bb8d0d9b9a0846c2278c9ad23640c18a (patch) | |
| tree | 8535881c8681d7a20bcba373b7a753c6cde07a1d /lisp/emacs-lisp | |
| parent | 02c04e6f822bb327cc577376eaf6eeb619d22291 (diff) | |
| download | emacs-7c20a7a9bb8d0d9b9a0846c2278c9ad23640c18a.tar.gz emacs-7c20a7a9bb8d0d9b9a0846c2278c9ad23640c18a.tar.bz2 emacs-7c20a7a9bb8d0d9b9a0846c2278c9ad23640c18a.zip | |
(reb-update-overlays): Distinguish between one and several matches in message.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/re-builder.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)" ""))) |