[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/replace.el
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/replace.el |
Date: |
Tue, 25 Jun 2002 05:54:26 -0400 |
Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.149 emacs/lisp/replace.el:1.150
*** emacs/lisp/replace.el:1.149 Wed Jun 12 00:55:34 2002
--- emacs/lisp/replace.el Tue Jun 25 05:54:26 2002
***************
*** 704,725 ****
(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))))
;; If we had to make a temporary buffer, make it the *Occur*
;; buffer now.
(when made-temp-buf
--- 704,717 ----
(isearch-no-upper-case-p regexp t))
list-matching-lines-buffer-name-face
nil list-matching-lines-face nil)))
! (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