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

[Tassilo Horn]

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  d4059b8f49c2609369d694a8250d1df8641161c3 (commit)
      from  f91946802bd0bc6689de31493da9d8f8e55abfbb (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 d4059b8f49c2609369d694a8250d1df8641161c3
Author: Tassilo Horn <address@hidden>
Date:   Fri Apr 25 12:58:18 2014 +0200

    Improve line wrap removal heuristics.
    
    * tex-buf.el (TeX-format-filter): Remove linebreaks at columns 79
    and also column 80.  Also remove linebreaks preceded by a period
    that are followed by a word character to remove linebreaks in file
    names that are wrapped just after the period starting the file
    name extension.

diff --git a/tex-buf.el b/tex-buf.el
index c2c3ba6..e64c3a2 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1176,15 +1176,17 @@ command."
        (goto-char pt)
        (insert-before-markers string)
        (set-marker (process-mark process) (point))
-       ;; Remove line breaks at column 79
+       ;; Remove line breaks at columns 79 and 80
        (while (> (point) pt)
          (end-of-line 0)
-         (when (and (= (- (point) (line-beginning-position)) 79)
-                    ;; Heuristic: Don't delete the linebreak if the
-                    ;; next line is empty or starts with an opening
-                    ;; parenthesis or if point is located after a period.
+         (when (and (memql (- (point) (line-beginning-position)) '(79 80))
+                    ;; Heuristic: Don't delete the linebreak if the next line
+                    ;; is empty or starts with an opening parenthesis, or if
+                    ;; point is located after a period and in the next line no
+                    ;; word char follows.
                     (not (memq (char-after (1+ (point))) '(?\n ?\()))
-                    (not (eq (char-before) ?.)))
+                    (not (and (eq (char-before) ?.)
+                              (not (eq ?w (char-syntax (char-after (1+ 
(point)))))))))
            (delete-char 1)))
        (goto-char (marker-position (process-mark process)))
        ;; Determine current page

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

Summary of changes:
 tex-buf.el |   14 ++++++++------
 1 files changed, 8 insertions(+), 6 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX