[AUCTeX-diffs] Changes to auctex/tex-buf.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    07/07/10 21:05:07

Index: tex-buf.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex-buf.el,v
retrieving revision 1.260
retrieving revision 1.261
diff -u -b -r1.260 -r1.261
--- tex-buf.el  29 Apr 2007 14:40:20 -0000      1.260
+++ tex-buf.el  10 Jul 2007 21:05:07 -0000      1.261
@@ -1051,6 +1051,18 @@
        (goto-char pt)
        (insert-before-markers string)
        (set-marker (process-mark process) (point))
+       ;; Remove line breaks at column 79
+       (while (> (point) pt)
+         (end-of-line 0)
+         (when (and (= (current-column) 79)
+                    ;; Heuristic: Don't delete the linebreak if there
+                    ;; is an empty line after the current one or
+                    ;; point is located after a period.
+                    (not (eq (char-after (1+ (point))) ?\n))
+                    (not (eq (char-before) ?.)))
+           (delete-char 1)))
+       (goto-char (marker-position (process-mark process)))
+       ;; Determine current page
        (while (and pt
                    (skip-chars-backward "^]" pt)
                    (> (point) pt))