mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(occur-mode-mouse-goto): Pop, don't switch.

Browse Source 
(occur-mode-goto-occurrence): Let-bind same-window-buffer-names
and same-window-regexps.
(occur-next-error): Don't move point for arg 0.
This commit is contained in:
Juri Linkov 2005-11-28 19:59:16 +00:00
parent 7e1d31d460
commit 6c6605b2cf
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/replace.el
View File

@ -755,7 +755,9 @@ 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))))
(switch-to-buffer-other-window (marker-buffer pos))
(let (same-window-buffer-names
same-window-regexps)
(pop-to-buffer (marker-buffer pos)))
(goto-char pos)))
(defun occur-mode-find-occurrence ()
@ -769,7 +771,9 @@ Alternatively, click \\[occur-mode-mouse-goto] on an item to go to it.
(defun occur-mode-goto-occurrence ()
"Go to the occurrence the current line describes."
(interactive)
(let ((pos (occur-mode-find-occurrence)))
(let ((pos (occur-mode-find-occurrence))
same-window-buffer-names
same-window-regexps)
(pop-to-buffer (marker-buffer pos))
(goto-char pos)))
@ -832,7 +836,8 @@ Compatibility function for \\[next-error] invocations."
(goto-char (cond (reset (point-min))
((< argp 0) (line-beginning-position))
((line-end-position))))
((> argp 0) (line-end-position))
((point))))
(occur-find-match
(abs argp)
(if (> 0 argp)