From af751646bdd75378f4e62d549321e9a8080d018c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 17 Sep 2007 07:01:41 +0000 Subject: [PATCH] Joe Wells (tiny change) (tex-compilation-parse-errors): Also match TeX `--file-line-error' format. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/tex-mode.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 14ccb0b2855..ce68071ddda 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-09-17 Glenn Morris + + * textmodes/tex-mode.el (tex-compilation-parse-errors): Prefer the + filename from `--file-line-error', if it is available. + 2007-09-17 Joe Wells (tiny change) * textmodes/tex-mode.el (tex-compilation-parse-errors): Also match diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index c4380c59d9b..73075ce0598 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -2016,7 +2016,8 @@ for the error messages." (goto-char compilation-parsing-end) ;; Parse messages. (while (and (not (or found-desired (eobp))) - (prog1 (re-search-forward "^! " nil 'move) + (prog1 (re-search-forward + "^\\(?:[^:\n]+:[[:digit:]]+:\\|!\\) " nil 'move) (setq begin-of-error (match-beginning 0) end-of-error (match-end 0))) (re-search-forward -- 2.39.2