auctex-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[AUCTeX-diffs] GNU AUCTeX branch, simplify-TeX-parse-error, updated. 836


From: Tassilo Horn
Subject: [AUCTeX-diffs] GNU AUCTeX branch, simplify-TeX-parse-error, updated. 836e46136286941fbbb87178d33df9087469421e
Date: Sun, 27 Apr 2014 09:18:10 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, simplify-TeX-parse-error has been updated
       via  836e46136286941fbbb87178d33df9087469421e (commit)
      from  d4059b8f49c2609369d694a8250d1df8641161c3 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 836e46136286941fbbb87178d33df9087469421e
Author: Tassilo Horn <address@hidden>
Date:   Sun Apr 27 11:16:53 2014 +0200

    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.

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))

-----------------------------------------------------------------------

Summary of changes:
 tex-buf.el |   11 +++++++----
 1 files changed, 7 insertions(+), 4 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX



reply via email to

[Prev in Thread] Current Thread [Next in Thread]