Commit 1fc01b08 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

* progmodes/compile.el (compilation-goto-locus): Use next-error-move-function.

parent 8cdba32b
2009-08-13 Richard Stallman <rms@gnu.org>
* progmodes/compile.el (compilation-goto-locus):
Use next-error-move-function.
* simple.el (next-error-move-function): New variable.
2009-08-12 Juri Linkov <juri@jurta.org>
......
......@@ -2078,10 +2078,12 @@ and overlay is highlighted between MK and END-MK."
(if (window-dedicated-p (selected-window))
(pop-to-buffer (marker-buffer mk))
(switch-to-buffer (marker-buffer mk))))
;; If narrowing gets in the way of going to the right place, widen.
(unless (eq (goto-char mk) (point))
;; If narrowing gets in the way of going to the right place, widen.
(widen)
(goto-char mk))
(if next-error-move-function
(funcall next-error-move-function msg mk)
(goto-char mk)))
(if end-mk
(push-mark end-mk t)
(if mark-active (setq mark-active)))
......
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