branch: externals/auctex
commit 836e46136286941fbbb87178d33df9087469421e
Author: Tassilo Horn <t...@gnu.org>
Commit: Tassilo Horn <t...@gnu.org>
Don't use TRIM arg of split-string.
* tex-buf.el (TeX-parse-error): Don't use TRIM arg of
`split-string' which is new in emacs 24.4.
---
tex-buf.el | 11 +++++++----
1 files changed, 7 insertions(+), 4 deletions(-)
diff --git a/tex-buf.el b/tex-buf.el
index e64c3a2..8aaf14d 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1540,12 +1540,15 @@ You might want to examine and modify the free variables
`file',
((match-beginning 3)
(let ((file (TeX-match-buffer 3))
(end (match-end 3)))
- ;; Trim, strip quotation marks and remove newlines if necessary
+ ;; Strip quotation marks and remove newlines if necessary
(when (or (eq (string-to-char file) ?\")
(string-match "[ \t\n]" file))
- (setq file (mapconcat 'identity
- (split-string file "[\"\n]+" nil "[ \t]")
- "")))
+ (setq file (mapconcat 'identity (split-string file "[\"\n]+")
"")))
+ ;; Trim whitespace at the front/end
+ (setq file
+ (progn
+ (string-match
"^[[:space:]]*\\(.*[^[:space:]]\\)[[:space:]]*$" file)
+ (match-string 1 file)))
(push file TeX-error-file)
(push nil TeX-error-offset)
(goto-char end))
