437 |
(define-key map [mouse-2] 'occur-mode-mouse-goto) |
(define-key map [mouse-2] 'occur-mode-mouse-goto) |
438 |
(define-key map "\C-c\C-c" 'occur-mode-goto-occurrence) |
(define-key map "\C-c\C-c" 'occur-mode-goto-occurrence) |
439 |
(define-key map "\C-m" 'occur-mode-goto-occurrence) |
(define-key map "\C-m" 'occur-mode-goto-occurrence) |
440 |
|
(define-key map "\o" 'occur-mode-goto-occurrence-other-window) |
441 |
(define-key map "\C-o" 'occur-mode-display-occurrence) |
(define-key map "\C-o" 'occur-mode-display-occurrence) |
442 |
(define-key map "\M-n" 'occur-next) |
(define-key map "\M-n" 'occur-next) |
443 |
(define-key map "\M-p" 'occur-prev) |
(define-key map "\M-p" 'occur-prev) |
515 |
(pop-to-buffer occur-buffer) |
(pop-to-buffer occur-buffer) |
516 |
(goto-char (marker-position pos)))) |
(goto-char (marker-position pos)))) |
517 |
|
|
518 |
|
(defun occur-mode-goto-occurrence-other-window () |
519 |
|
"Go to the occurrence the current line describes, in another window." |
520 |
|
(interactive) |
521 |
|
(let ((pos (occur-mode-find-occurrence))) |
522 |
|
(switch-to-buffer-other-window occur-buffer) |
523 |
|
(goto-char (marker-position pos)))) |
524 |
|
|
525 |
(defun occur-mode-display-occurrence () |
(defun occur-mode-display-occurrence () |
526 |
"Display in another window the occurrence the current line describes." |
"Display in another window the occurrence the current line describes." |
527 |
(interactive) |
(interactive) |