Mercurial > emacs

changeset 104247:9caaade61f03

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 81a43a652b4b
children 0655506844f6
files lisp/ChangeLog lisp/progmodes/compile.el
diffstat 2 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Aug 13 00:57:17 2009 +0000
+++ b/lisp/ChangeLog	Thu Aug 13 00:58:54 2009 +0000
@@ -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>
--- 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)))