Mercurial > emacs

changeset 66537:760919245a05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(occur-mode-mouse-goto): Always go to other window. (occur-mode-goto-occurrence): Always switch in same window.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 Oct 2005 19:49:20 +0000
parents ef5c1ec14e1f
children bcc5c444e119
files lisp/replace.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Sat Oct 29 19:48:22 2005 +0000
+++ b/lisp/replace.el	Sat Oct 29 19:49:20 2005 +0000
@@ -755,7 +755,7 @@
       (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 @@
   "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 ()