Joe Wells <jbw at macs.hw.ac.uk> (tiny change)

(tex-compilation-parse-errors): Also match TeX `--file-line-error'
format.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14ccb0b2855263e9a6ff22d1838d99275a43ec7f..ce68071ddda120694a7b8f98198d7ef565b2066b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-17  Glenn Morris  <rgm@gnu.org>
+
+       * textmodes/tex-mode.el (tex-compilation-parse-errors): Prefer the
+       filename from `--file-line-error', if it is available.
+
 2007-09-17  Joe Wells  <jbw@macs.hw.ac.uk>  (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 c4380c59d9b717773d6ae496c4b6031663e43430..73075ce05989435c7f2e9f6ffde053443993d833 100644 (file)
--- 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