monnier pushed a commit to branch externals/auctex in repository elpa. commit 24f35445038ba1972b1cd2c8224fbed29921d544 Author: Tassilo Horn <t...@gnu.org> Date: Mon Nov 11 09:21:11 2013 +0100
Fix C-x ` (next-error) for compile commands. * tex-buf.el (TeX-next-error, TeX-previous-error): Call `next-error' also if last TeX command was a compile command (e.g., Check, ChkTeX). (TeX-run-compile): Save compilation buffer in `TeX-command-buffer'. --- ChangeLog | 8 ++++++++ tex-buf.el | 10 +++++++--- 2 files changed, 15 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index c97e020..540262c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2013-11-11 Tassilo Horn <t...@gnu.org> + + * tex-buf.el (TeX-next-error, TeX-previous-error): Call + `next-error' also if last TeX command was a compile command (e.g., + Check, ChkTeX). + (TeX-run-compile): Save compilation buffer in + `TeX-command-buffer'. + 2013-11-10 Ralf Angeli <ang...@caeruleus.net> * bib-cite.el (bib-highlight-mouse): Change regexp to cope with diff --git a/tex-buf.el b/tex-buf.el index 2e313a4..efc19b5 100644 --- a/tex-buf.el +++ b/tex-buf.el @@ -270,7 +270,9 @@ the master file." "Find the next error in the TeX output buffer. With \\[universal-argument] prefix, start from the beginning of the errors." (interactive "P") - (if (null (TeX-active-buffer)) + (if (or (null (TeX-active-buffer)) + (eq 'compilation-mode (with-current-buffer TeX-command-buffer + major-mode))) (next-error reparse) (funcall (with-current-buffer TeX-command-buffer (TeX-process-get-variable (TeX-active-master) 'TeX-parse-function)) @@ -279,7 +281,9 @@ With \\[universal-argument] prefix, start from the beginning of the errors." (defun TeX-previous-error (arg) "Find the previous error in the TeX output buffer." (interactive "P") - (if (null (TeX-active-buffer)) + (if (or (null (TeX-active-buffer)) + (eq 'compilation-mode (with-current-buffer TeX-command-buffer + major-mode))) (previous-error arg) (error "Jumping to previous error not supported"))) @@ -687,7 +691,7 @@ run of `TeX-run-TeX', use (defun TeX-run-compile (name command file) "Ignore first and third argument, start compile with second argument." (let ((default-directory (TeX-master-directory))) - (compile command))) + (setq TeX-command-buffer (compile command)))) (defun TeX-run-shell (name command file) "Ignore first and third argument, start shell-command with second argument."