branch: externals/auctex
commit f91946802bd0bc6689de31493da9d8f8e55abfbb
Author: Tassilo Horn <[email protected]>
Commit: Tassilo Horn <[email protected]>
Improve TeX error parsing.
* tex-buf.el (TeX-error): Error if file containing the TeX error
doesn't exist instead of finding a new file.
(TeX-parse-error): Greatly simplify the new file and end of file
regexps.
---
tex-buf.el | 28 ++++++++++++----------------
1 files changed, 12 insertions(+), 16 deletions(-)
diff --git a/tex-buf.el b/tex-buf.el
index 84ca2da..c2c3ba6 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1483,16 +1483,9 @@ You might want to examine and modify the free variables
`file',
;; TeX error
"^\(!\|\(.*?\):[0-9]+:\) \|"
;; New file
- "(\(\"[^\"]*?\"\|/*\
-\(?:\.+[^()
{} \/]*\|[^()
{} .\/]+\
-\(?: [^()
{} .\/]+\)*\(?:\.[-0-9a-zA-Z_.]*\)?\)\
-\(?:[\/]+\(?:\.+[^()
{} \/]*\|[^()
{} .\/]+\
-\(?: [^()
{} .\/]+\)*\(?:\.[-0-9a-zA-Z_.]*\)?\)?\)*\)\
-)*\(?: \|
?$\)\|"
- ;; End of file. The [^:] skips package messages like:
- ;; Package hyperref Message: Driver (autodetected): hpdftex.
- ;; [Loading MPS to PDF converter (version 2006.09.02).]
- "\()\)[^:.]\|"
+ "(
?\([^())]+\)\|"
+ ;; End of file.
+ "\()\)\|"
;; Hook to change line numbers
" !\(?:offset(\([---0-9]+\))\|"
;; Hook to change file name
@@ -1545,11 +1538,12 @@ You might want to examine and modify the free variables
`file',
((match-beginning 3)
(let ((file (TeX-match-buffer 3))
(end (match-end 3)))
- ;; Strip quotation marks and remove newlines if necessary
+ ;; Trim, strip quotation marks and remove newlines if necessary
(when (or (eq (string-to-char file) ?\")
- (string-match "
" file))
- (setq file
- (mapconcat 'identity (split-string file "[\"
]+") "")))
+ (string-match "[
]" file))
+ (setq file (mapconcat 'identity
+ (split-string file "[\"
]+" nil "[ ]")
+ "")))
(push file TeX-error-file)
(push nil TeX-error-offset)
(goto-char end))
@@ -1624,8 +1618,10 @@ You might want to examine and modify the free variables
`file',
(setq TeX-error-point (point))
;; Find the error.
- (if (null file)
- (error "Error occurred after last TeX file closed"))
+ (when (null file)
+ (error "Error occurred after last TeX file closed"))
+ (when (not (file-exists-p file))
+ (error "No such file: %s" file))
(let ((runbuf (current-buffer))
(master (with-current-buffer
TeX-command-buffer
_______________________________________________
auctex-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/auctex-devel
