Commit b938735a authored by Juri Linkov's avatar Juri Linkov
Browse files

(perform-replace): Use `query-replace-descr'.

(occur-mode-map): Rename `next-error-follow-mode' to `next-error-follow-minor-mode'.
parent 0443d889
......@@ -618,7 +618,7 @@ end of the buffer."
(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 @@ make, or the user didn't cancel the call."
;; 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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment