martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
(occur-mode-goto-occurrence): Always switch in same window.
This commit is contained in:
Richard M. Stallman
2005-10-29 19:49:20 +00:00
parent cb3b2ec005
commit 932af01bc5
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/replace.el
View File

@@ -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 ()