Mercurial > emacs
changeset 46004:43acdf05b0cf
(occur-1): Avoid invalid message format string.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Tue, 25 Jun 2002 09:54:26 +0000 |
| parents | 503e1f14ba3d |
| children | 826fff7bded9 |
| files | lisp/replace.el |
| diffstat | 1 files changed, 8 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Tue Jun 25 01:09:52 2002 +0000 +++ b/lisp/replace.el Tue Jun 25 09:54:26 2002 +0000 @@ -704,22 +704,14 @@ (isearch-no-upper-case-p regexp t)) list-matching-lines-buffer-name-face nil list-matching-lines-face nil))) - (let* ((diff (- (length bufs) (length active-bufs))) - (bufcount (- (length bufs) diff)) - (msg (concat - (format "Searched %d buffer%s" bufcount (if (= bufcount 1) "" "s")) - "%s; " - (format "%s match%s for `%s'" - (if (zerop count) - "no" - (format "%d" count)) - (if (= count 1) - "" - "es") - regexp)))) - (message msg (if (zerop diff) - "" - (format " (%d killed)" diff)))) + (let* ((bufcount (length active-bufs)) + (diff (- (length bufs) bufcount))) + (message "Searched %d buffer%s%s; %s match%s for `%s'" + bufcount (if (= bufcount 1) "" "s") + (if (zerop diff) "" (format " (%d killed)" diff)) + (if (zerop count) "no" (format "%d" count)) + (if (= count 1) "" "es") + regexp)) ;; If we had to make a temporary buffer, make it the *Occur* ;; buffer now. (when made-temp-buf