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