[Emacs-diffs] emacs/lisp ChangeLog progmodes/compile.el

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       09/08/13 00:58:57

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : compile.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15924&r2=1.15925
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/compile.el?cvsroot=emacs&r1=1.496&r2=1.497

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15924
retrieving revision 1.15925
diff -u -b -r1.15924 -r1.15925
--- ChangeLog   13 Aug 2009 00:57:17 -0000      1.15924
+++ ChangeLog   13 Aug 2009 00:58:54 -0000      1.15925
@@ -1,5 +1,8 @@
 2009-08-13  Richard Stallman  <address@hidden>
 
+       * progmodes/compile.el (compilation-goto-locus):
+       Use next-error-move-function.
+
        * simple.el (next-error-move-function): New variable.
 
 2009-08-12  Juri Linkov  <address@hidden>

Index: progmodes/compile.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.496
retrieving revision 1.497
diff -u -b -r1.496 -r1.497
--- progmodes/compile.el        10 Aug 2009 02:44:58 -0000      1.496
+++ progmodes/compile.el        13 Aug 2009 00:58:56 -0000      1.497
@@ -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)))