Mercurial > emacs
diff lisp/progmodes/compile.el @ 104247:9caaade61f03
* progmodes/compile.el (compilation-goto-locus): Use next-error-move-function.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 13 Aug 2009 00:58:54 +0000 |
parents | e312dc3a4650 |
children | e7f57b24c0a2 |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Thu Aug 13 00:57:17 2009 +0000 +++ b/lisp/progmodes/compile.el Thu Aug 13 00:58:54 2009 +0000 @@ -2078,10 +2078,12 @@ (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)))