Commit 932af01b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(occur-mode-mouse-goto): Always go to other window.

(occur-mode-goto-occurrence): Always switch in same window.
parent cb3b2ec0
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment