Mercurial > emacs
diff lisp/replace.el @ 66537:760919245a05
(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 | 2aa1446214fe |
children | f41b7662a7a5 |
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 ()