branch: externals/auctex
commit 2fd59c93413440daddd585fc64230e2433f80008
Author: Mosè Giordano <[email protected]>
Commit: Mosè Giordano <[email protected]>
Improve word-string regexp in TeX-warning
* tex-buf.el (TeX-warning): Match letters, numbers, colons, and hyphens,
not just word constituents. They may be preceeded by both grave
accent and apostrophe, not only grave accent.
* tests/tex/compilation-log.txt: Add test case.
* tests/tex/error-parsing.el: Update result.
---
tests/tex/compilation-log.txt | 2 ++
tests/tex/error-parsing.el | 6 +++++-
tex-buf.el | 4 +++-
3 files changed, 10 insertions(+), 2 deletions(-)
diff --git a/tests/tex/compilation-log.txt b/tests/tex/compilation-log.txt
index f3d2b00..85e56c0 100644
--- a/tests/tex/compilation-log.txt
+++ b/tests/tex/compilation-log.txt
@@ -61,6 +61,8 @@ Overfull \hbox (13.59138pt too wide) in paragraph at lines
367--368
[93])
+LaTeX Warning: Citation 'Knuth:TeXbook-1984' undefined on input line 48.
+
LaTeX Warning: There were undefined references.
)
diff --git a/tests/tex/error-parsing.el b/tests/tex/error-parsing.el
index 2d0f282..f15f3ac 100644
--- a/tests/tex/error-parsing.el
+++ b/tests/tex/error-parsing.el
@@ -110,7 +110,11 @@ ABD: EveryShipout initializing macros"
(bad-box "./file name/with spaces.tex" 367 "Overfull \hbox
(13.59138pt too wide) in paragraph at lines 367--368"
0 "
[]\T1/pplj/m/n/10.95 Un qua-dri-vet-to-re co-va-rian-te $\OMS/zplm/m/n/10.95
f\OML/zplm/m/it/10.95 A[]\OMS/zplm/m/n/10.95 g$ \T1/pplj/m/n/10.95 e un
in-sie-me di quat-tro quan-ti-ta $\OT1/zplm/m/n/10.95 (\OML/zplm/m/it/10.95
A[]; A[]; A[]; A[]\OT1/zplm/m/n/10.95 )$" "$"
368 t 2600 nil)
+ (warning "./test.tex" 48
+ "LaTeX Warning: Citation 'Knuth:TeXbook-1984' undefined on input
line 48." 0
+ "LaTeX Warning: Citation 'Knuth:TeXbook-1984' undefined on input
line 48.
"
+ "Knuth:TeXbook-1984" 48 nil 2692 nil)
(warning "./test.tex" nil "LaTeX Warning: There were undefined
references."
- 0 "LaTeX Warning: There were undefined references.
" nil nil nil 2667 nil)))))
+ 0 "LaTeX Warning: There were undefined references.
" nil nil nil 2741 nil)))))
;;; error-parsing.el ends here
diff --git a/tex-buf.el b/tex-buf.el
index 9a3662b..dca6614 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -2574,7 +2574,9 @@ warning."
"on input line \([0-9]*\)\."))
;; word-string: match 1 is the word
(word-string (if bad-box "[][\W() ---]\(\w+\)[][\W() ---]*$"
- "`\(\w+\)'"))
+ ;; Match "ref" in both "Reference `ref' on page NN
+ ;; undefined" and "Citation 'ref' on page NN undefined".
+ "\(?:`\|'\)\([-a-zA-Z0-9:]+\)'"))
;; Get error-line (warning). Don't search before `warning-start' to
;; avoid catching completely unrelated line numbers.
_______________________________________________
auctex-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/auctex-devel
