mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(occur-next-error): *Occur* might not be displayed in the

Browse source 
selected frame.  Reported by David Hansen <david.hansen@gmx.net>.
This commit is contained in:
Stefan Monnier 2007-03-26 15:09:52 +00:00
parent 5ae4899796
commit 084c41ca0a
2 changed files with 21 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/replace.el
View file

@ -844,7 +844,8 @@ Compatibility function for \\[next-error] invocations."
#'next-single-property-change)
"No more matches")
;; In case the *Occur* buffer is visible in a nonselected window.
(set-window-point (get-buffer-window (current-buffer)) (point))
(let ((win (get-buffer-window (current-buffer) t)))
(if win (set-window-point win (point))))
(occur-mode-goto-occurrence)))
(defface match