diff options
| author | Magnus Henoch <magnus.henoch@gmail.com> | 2013-04-24 09:50:22 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-04-24 09:50:22 -0400 |
| commit | 4391916c58d5d2fb09b7a505161f37401f2542d2 (patch) | |
| tree | 001109a7357fd14e60347d8451dffa0837e71ef9 /lisp | |
| parent | 3b8fe7527bba99adb7901bce07b7b124c3ce9726 (diff) | |
| download | emacs-4391916c58d5d2fb09b7a505161f37401f2542d2.tar.gz emacs-4391916c58d5d2fb09b7a505161f37401f2542d2.tar.bz2 emacs-4391916c58d5d2fb09b7a505161f37401f2542d2.zip | |
* lisp/progmodes/compile.el (compilation-next-error-function):
Pass "formats" to compilation-find-file.
Fixes: debbugs:11777
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 11 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 10 |
2 files changed, 14 insertions, 7 deletions
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. |