Changeset 6604

Timestamp:

May 25, 2007, 4:58:22 AM (18 years ago)

Author:

Gary Byers

Message:

Deletions try to adjust line-origins of subsequent lines.

File:

• branches/ide-1.0/ccl/hemlock/src/htext4.lisp (modified) (3 diffs)

branches/ide-1.0/ccl/hemlock/src/htext4.lisp

@@ -57 +57 @@
                                                  (if (<= pos bound) *left-open-pos* (- pos n))
                                                  pos)))))
+                         (adjust-line-origins-forward line)
                          (buffer-note-deletion buffer mark n)
                          t)))
@@ -146 +147 @@
                    (setf (line-next first-line) next)
                    (when next (setf (line-previous next) first-line))))))
+        (adjust-line-origins-forward first-line)
         (buffer-note-deletion buffer start ndel)))))
 
@@ -259 +261 @@
                        (mark saved-line 0 :right-inserting)
                        (mark last-line last-charpos :left-inserting))))))
+          (adjust-line-origins-forward first-line)
           (buffer-note-deletion buffer start ndel)))))))