[Emacs-diffs] /srv/bzr/emacs/trunk r112369: * lisp/progmodes/compile.el (compilation-next-error-function):

[Stefan Monnier]

------------------------------------------------------------
revno: 112369
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11777
author: Magnus Henoch <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2013-04-24 09:50:22 -0400
message:
  * lisp/progmodes/compile.el (compilation-next-error-function):
  Pass "formats" to compilation-find-file.
modified:
  lisp/ChangeLog
  lisp/progmodes/compile.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-24 08:13:52 +0000
+++ b/lisp/ChangeLog    2013-04-24 13:50:22 +0000
@@ -1,3 +1,8 @@
+2013-04-24  Magnus Henoch  <address@hidden>
+
+       * progmodes/compile.el (compilation-next-error-function):
+       Pass "formats" to compilation-find-file (bug#11777).
+
 2013-04-24  Glenn Morris  <address@hidden>
 
        * vc/vc-bzr.el (vc-bzr-print-log):
@@ -22,12 +27,12 @@
 
 2013-04-23  Tassilo Horn  <address@hidden>
 
-       * textmodes/reftex-vars.el (reftex-label-regexps): Call
-       `reftex-compile-variables' after changes to this variable.
+       * textmodes/reftex-vars.el (reftex-label-regexps):
+       Call `reftex-compile-variables' after changes to this variable.
 
 2013-04-23  Stefan Monnier  <address@hidden>
 
-       * jit-lock.el: Fix signals in jit-lock-force-redisplay.
+       * jit-lock.el: Fix signals in jit-lock-force-redisplay (bug#13542).
        Use lexical-binding.
        (jit-lock-force-redisplay): Use markers, check buffer's continued
        existence and beware narrowed buffers.

=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2013-03-19 00:16:14 +0000
+++ b/lisp/progmodes/compile.el 2013-04-24 13:50:22 +0000
@@ -2382,10 +2382,12 @@
                  ;;            (setq timestamp compilation-buffer-modtime)))
                  )
       (with-current-buffer
-          (compilation-find-file
-           marker
-           (caar (compilation--loc->file-struct loc))
-           (cadr (car (compilation--loc->file-struct loc))))
+          (apply #'compilation-find-file
+                 marker
+                 (caar (compilation--loc->file-struct loc))
+                 (cadr (car (compilation--loc->file-struct loc)))
+                 (compilation--file-struct->formats
+                  (compilation--loc->file-struct loc)))
         (let ((screen-columns
                ;; Obey the compilation-error-screen-columns of the target
                ;; buffer if its major mode set it buffer-locally.