Mercurial > emacs
changeset 42294:d1c81a1250f2
(occur-mode-display-occurrence): New function.
(occur-mode-map): Bind C-o to it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 24 Dec 2001 16:26:15 +0000 |
| parents | f31eab2cf8ae |
| children | 4c9878b648f4 |
| files | lisp/replace.el |
| diffstat | 1 files changed, 14 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Mon Dec 24 12:20:50 2001 +0000 +++ b/lisp/replace.el Mon Dec 24 16:26:15 2001 +0000 @@ -436,6 +436,7 @@ (define-key map [mouse-2] 'occur-mode-mouse-goto) (define-key map "\C-c\C-c" 'occur-mode-goto-occurrence) (define-key map "\C-m" 'occur-mode-goto-occurrence) + (define-key map "\C-o" 'occur-mode-display-occurrence) (define-key map "\M-n" 'occur-next) (define-key map "\M-p" 'occur-prev) (define-key map "g" 'revert-buffer) @@ -512,6 +513,19 @@ (pop-to-buffer occur-buffer) (goto-char (marker-position pos)))) +(defun occur-mode-display-occurrence () + "Display in another window the occurrence the current line describes." + (interactive) + (let ((pos (occur-mode-find-occurrence)) + same-window-buffer-names + same-window-regexps + window) + (setq window (display-buffer occur-buffer)) + ;; This is the way to set point in the proper window. + (save-selected-window + (select-window window) + (goto-char (marker-position pos))))) + (defun occur-next (&optional n) "Move to the Nth (default 1) next match in the *Occur* buffer." (interactive "p")