procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(occur-mode-map): Rename `next-error-follow-mode' to `next-error-follow-minor-mode'.
This commit is contained in:
Juri Linkov 2004-09-08 20:24:12 +00:00
parent 0443d8895a
commit b938735a66
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/replace.el
View file

@ -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.