[Emacs-diffs] Changes to emacs/lisp/replace.el [lexbind]

[Miles Bader]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.148.2.15 emacs/lisp/replace.el:1.148.2.16
*** emacs/lisp/replace.el:1.148.2.15    Sat Sep  4 09:19:26 2004
--- emacs/lisp/replace.el       Thu Sep 16 00:12:21 2004
***************
*** 618,623 ****
--- 618,624 ----
      (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-minor-mode)
      map)
    "Keymap for `occur-mode'.")
  
***************
*** 1392,1398 ****
                  ;; 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))
                  (setq key (read-event))
                  ;; Necessary in case something happens during read-event
                  ;; that clobbers the match data.
--- 1393,1401 ----
                  ;; 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
!                              (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.