branch: externals/auctex
commit 416f1315ca14e4d7eff16e78c601f43a3f31a795
Author: Mosè Giordano <[email protected]>
Commit: Mosè Giordano <[email protected]>
Catch LaTeX class warnings
* tex-buf.el (LaTeX-warnings-regexp): New variable. This is the same
regexp used before by `TeX-LaTeX-sentinel-has-warnings' and
`TeX-parse-error', but now catches class warnings as well.
(TeX-LaTeX-sentinel-has-warnings, TeX-parse-error): Use
`LaTeX-warnings-regexp'.
---
tex-buf.el | 9 ++++++---
1 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/tex-buf.el b/tex-buf.el
index d44cbc7..0d924c7 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1389,13 +1389,16 @@ Return nil ifs no errors were found."
(setq TeX-command-next TeX-command-Show))
nil))
+(defvar LaTeX-warnings-regexp
+ "\(?:LaTeX [-A-Za-z0-9]*\|\(?:Class\|Package\) [-A-Za-z0-9]+ \)Warning:"
+ "Regexp matching LaTeX warnings.")
+
(defun TeX-LaTeX-sentinel-has-warnings ()
"Return non-nil, if the output buffer contains warnings.
Warnings can be indicated by LaTeX or packages."
(save-excursion
(goto-char (point-min))
- (re-search-forward
- "^\(LaTeX [-A-Za-z]*\|Package [-A-Za-z0-9]+ \)Warning:" nil t)))
+ (re-search-forward (concat "^" LaTeX-warnings-regexp) nil t)))
(defun TeX-LaTeX-sentinel-has-bad-boxes ()
"Return non-nil, if LaTeX output indicates overfull or underfull boxes."
@@ -2266,7 +2269,7 @@ Return non-nil if an error or warning is found."
"^\(\(?:Overfull\|Underfull\|Tight\|Loose\)\
\\.*?[0-9]+--[0-9]+\)\|"
;; LaTeX warning
- "^\(\(?:LaTeX [-A-Za-z]*\|Package [-A-Za-z0-9]+ \)Warning:.*\)"))
+ "^\(" LaTeX-warnings-regexp ".*\)"))
(error-found nil))
(while
(cond
_______________________________________________
auctex-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/auctex-devel
