mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(occur-1): Avoid invalid message format string.

Browse Source
This commit is contained in:
Andreas Schwab 2002-06-25 09:54:26 +00:00
parent ba76e7fac5
commit b2043e7bf3
1 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/replace.el
View File

@ -704,22 +704,14 @@ See also `multi-occur'."
(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