[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/replace.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/replace.el |
Date: |
Tue, 08 Jan 2002 01:12:38 -0500 |
Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.126 emacs/lisp/replace.el:1.127
*** emacs/lisp/replace.el:1.126 Sun Dec 30 14:37:47 2001
--- emacs/lisp/replace.el Tue Jan 8 01:12:37 2002
***************
*** 437,442 ****
--- 437,443 ----
(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 "\o" 'occur-mode-goto-occurrence-other-window)
(define-key map "\C-o" 'occur-mode-display-occurrence)
(define-key map "\M-n" 'occur-next)
(define-key map "\M-p" 'occur-prev)
***************
*** 512,517 ****
--- 513,525 ----
(interactive)
(let ((pos (occur-mode-find-occurrence)))
(pop-to-buffer occur-buffer)
+ (goto-char (marker-position pos))))
+
+ (defun occur-mode-goto-occurrence-other-window ()
+ "Go to the occurrence the current line describes, in another window."
+ (interactive)
+ (let ((pos (occur-mode-find-occurrence)))
+ (switch-to-buffer-other-window occur-buffer)
(goto-char (marker-position pos))))
(defun occur-mode-display-occurrence ()
- [Emacs-diffs] Changes to emacs/lisp/replace.el,
Richard M. Stallman <=