/[emacs]/emacs/lisp/replace.el
ViewVC logotype

Diff of /emacs/lisp/replace.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.148.2.15 by miles, Sat Sep 4 09:19:26 2004 UTC revision 1.148.2.16 by miles, Thu Sep 16 00:12:21 2004 UTC
# Line 618  end of the buffer." Line 618  end of the buffer."
618      (define-key map "g" 'revert-buffer)      (define-key map "g" 'revert-buffer)
619      (define-key map "q" 'quit-window)      (define-key map "q" 'quit-window)
620      (define-key map "z" 'kill-this-buffer)      (define-key map "z" 'kill-this-buffer)
621        (define-key map "\C-c\C-f" 'next-error-follow-minor-mode)
622      map)      map)
623    "Keymap for `occur-mode'.")    "Keymap for `occur-mode'.")
624    
# Line 1392  make, or the user didn't cancel the call Line 1393  make, or the user didn't cancel the call
1393                    ;; Bind message-log-max so we don't fill up the message log                    ;; Bind message-log-max so we don't fill up the message log
1394                    ;; with a bunch of identical messages.                    ;; with a bunch of identical messages.
1395                    (let ((message-log-max nil))                    (let ((message-log-max nil))
1396                      (message message from-string next-replacement))                      (message message
1397                                 (query-replace-descr from-string)
1398                                 (query-replace-descr next-replacement)))
1399                    (setq key (read-event))                    (setq key (read-event))
1400                    ;; Necessary in case something happens during read-event                    ;; Necessary in case something happens during read-event
1401                    ;; that clobbers the match data.                    ;; that clobbers the match data.

Legend:
Removed from v.1.148.2.15  
changed lines
  Added in v.1.148.2.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26