longlines.el (longlines-wrap-line): Preserve marker positions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57d6d885534718a7c4d6b0058c350167b66b99d4..082c37f33652cededd0bdbfb3bc081b0d8405181 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,7 @@
        (longlines-mode): Turn off longlines temporarily when reverting.
        Add a message-setup-hook.
        (longlines-decode-buffer): New function.
+       (longlines-wrap-line): Preserve marker positions.
 
 2005-11-19  Andreas Schwab  <schwab@suse.de>
 

diff --git a/lisp/longlines.el b/lisp/longlines.el
index 85358207a2beae79911c1d10f56af35ca89de1b8..93f3daa4ee89e7353934bf27eda905a9e07c6ab6 100644 (file)
--- a/lisp/longlines.el
+++ b/lisp/longlines.el
@@ -239,9 +239,10 @@ end of the buffer."
 If wrapping is performed, point remains on the line.  If the line does
 not need to be wrapped, move point to the next line and return t."
   (if (longlines-set-breakpoint)
-      (progn (backward-char 1)
-             (delete-char 1)
-             (insert-char ?\n 1)
+      (progn (insert-before-markers ?\n)
+            (backward-char 1)
+             (delete-char -1)
+            (forward-char 1)
              nil)
     (if (longlines-merge-lines-p)
         (progn (end-of-line)