[Emacs-diffs] Changes to emacs/lisp/replace.el

[Richard M. Stallman]

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 ()