Mercurial > emacs

changeset 57023:cf85be0f7afa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(perform-replace): Use `query-replace-descr'. (occur-mode-map): Rename `next-error-follow-mode' to `next-error-follow-minor-mode'.
author Juri Linkov <juri@jurta.org>
date Wed, 08 Sep 2004 20:24:12 +0000
parents 463edf7390ca
children f7a178c7c443
files lisp/replace.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Wed Sep 08 20:21:57 2004 +0000
+++ b/lisp/replace.el	Wed Sep 08 20:24:12 2004 +0000
@@ -618,7 +618,7 @@
     (define-key map "g" 'revert-buffer)
     (define-key map "q" 'quit-window)
     (define-key map "z" 'kill-this-buffer)
-    (define-key map "\C-c\C-f" 'next-error-follow-mode)
+    (define-key map "\C-c\C-f" 'next-error-follow-minor-mode)
     map)
   "Keymap for `occur-mode'.")
 
@@ -1393,7 +1393,9 @@
 		  ;; Bind message-log-max so we don't fill up the message log
 		  ;; with a bunch of identical messages.
 		  (let ((message-log-max nil))
-		    (message message from-string next-replacement))
+		    (message message
+                             (query-replace-descr from-string)
+                             (query-replace-descr next-replacement)))
 		  (setq key (read-event))
 		  ;; Necessary in case something happens during read-event
 		  ;; that clobbers the match data.