From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 Oct 2005 19:49:20 +0000 (+0000)
Subject: (occur-mode-mouse-goto): Always go to other window.
X-Git-Tag: emacs-pretest-22.0.90~6204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=932af01bc5a5c642955a3ea744f24b4eb7bf5c7c;p=emacs.git

(occur-mode-mouse-goto): Always go to other window.
(occur-mode-goto-occurrence): Always switch in same window.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 31963f7538c..1d5c2a7c7c4 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -755,7 +755,7 @@ Alternatively, click \\[occur-mode-mouse-goto] on an item to go to it.
       (save-excursion
 	(goto-char (posn-point (event-end event)))
 	(setq pos (occur-mode-find-occurrence))))
-    (pop-to-buffer (marker-buffer pos))
+    (switch-to-buffer-other-window (marker-buffer pos))
     (goto-char pos)))
 
 (defun occur-mode-find-occurrence ()
@@ -770,7 +770,7 @@ Alternatively, click \\[occur-mode-mouse-goto] on an item to go to it.
   "Go to the occurrence the current line describes."
   (interactive)
   (let ((pos (occur-mode-find-occurrence)))
-    (pop-to-buffer (marker-buffer pos))
+    (switch-to-buffer (marker-buffer pos))
     (goto-char pos)))
 
 (defun occur-mode-goto-occurrence-other-window ()