From: Magnus Henoch <magnus.henoch@gmail.com>
Date: Wed, 24 Apr 2013 13:50:22 +0000 (-0400)
Subject: * lisp/progmodes/compile.el (compilation-next-error-function):
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~386
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4391916c58d5d2fb09b7a505161f37401f2542d2;p=emacs.git

* lisp/progmodes/compile.el (compilation-next-error-function):
Pass "formats" to compilation-find-file.

Fixes: debbugs:11777
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0fb21997226..9776dcd8812 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-04-24  Magnus Henoch  <magnus.henoch@gmail.com>
+
+	* progmodes/compile.el (compilation-next-error-function):
+	Pass "formats" to compilation-find-file (bug#11777).
+
 2013-04-24  Glenn Morris  <rgm@gnu.org>
 
 	* vc/vc-bzr.el (vc-bzr-print-log):
@@ -22,12 +27,12 @@
 
 2013-04-23  Tassilo Horn  <tsdh@gnu.org>
 
-	* 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  <monnier@iro.umontreal.ca>
 
-	* 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.
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 98a89bb2363..d6f136ec92d 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -2382,10 +2382,12 @@ This is the value of `next-error-function' in Compilation buffers."
                  ;;            (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.