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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf1fc8c0aa8acf936e9d66a7da7f4ce7c8733215..c4268c45caccbb1673045339eae8cd8c7c7fc466 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 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>

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 6249f50cc9c3c2430d033e87050e6860485aec20..a20f14ced9169412a38d1dc1b5d13caa5c86d5da 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -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)))