From b2043e7bf33d0ec24ff082c0f8b1a9570fced1fa Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 25 Jun 2002 09:54:26 +0000 Subject: [PATCH] (occur-1): Avoid invalid message format string. --- lisp/replace.el | 24 ++++++++---------------- 1 file changed, 8 insertions(+), 16 deletions(-) diff --git a/lisp/replace.el b/lisp/replace.el index 6899847be08..a182df02ca4 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -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 -- 2.39.2