From 932af01bc5a5c642955a3ea744f24b4eb7bf5c7c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 29 Oct 2005 19:49:20 +0000 Subject: [PATCH] (occur-mode-mouse-goto): Always go to other window. (occur-mode-goto-occurrence): Always switch in same window. --- lisp/replace.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 () -- 2.39.5