diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-12-24 16:27:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-12-24 16:27:20 +0000 |
| commit | 365486d69e8b74325093a1e3084d5b0867c89159 (patch) | |
| tree | 064ebf26118239f0b8b608a452f5f2c3a64a8995 | |
| parent | 3978dec08d45a671b25ba0530ed3d421e706522e (diff) | |
| download | emacs-365486d69e8b74325093a1e3084d5b0867c89159.tar.gz emacs-365486d69e8b74325093a1e3084d5b0867c89159.tar.bz2 emacs-365486d69e8b74325093a1e3084d5b0867c89159.zip | |
(occur-mode-display-occurrence): New function.
(occur-mode-map): Bind C-o to it.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/replace.el | 14 |
2 files changed, 19 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0060322637d..f989219d637 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-12-24 Richard M. Stallman <rms@gnu.org> + + * replace.el (occur-mode-display-occurrence): New function. + (occur-mode-map): Bind C-o to it. + 2001-12-24 Michael Kifer <kifer@cs.sunysb.edu> * viper-cmd.el (viper-change-state): Got rid of make-local-hook. diff --git a/lisp/replace.el b/lisp/replace.el index 71ec81ba44e..28e0d06f720 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -436,6 +436,7 @@ end of the buffer." (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 @@ Alternatively, click \\[occur-mode-mouse-goto] on an item to go to it. (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") |