anchor.diff:  (defun buffer-insert-newline (buffer linum col)
     (buffer-read-only-guard buffer buffer-insert-newline)
     (setf (buffer-modified-p buffer) t)
  +  (cond
  +   ((= (buffer-mark-linum buffer) linum)
  +    (incf (buffer-mark-linum buffer))
  +    (decf (buffer-mark-col buffer) col))
  +   ((< linum (buffer-mark-linum buffer))
  +    (incf (buffer-mark-linum buffer))))
     (let ((line (buffer-get-line buffer linum)))
       (let ((newline
               (make-line line
  
positive.code:     (loop while (plusp n) do
        (cond
         ((<= n (- (length (line-str line)) col))
          (setf (buffer-modified-p buffer) t)
          (setf (car del-lines)
            (concatenate 'string
  
negative.code:             (subseq (line-str line) (+ col n))))
          (setq n 0))
         (t
          (cond
           ((and (= linum (buffer-mark-linum buffer))
                 (< col (buffer-mark-col buffer)))
            (setf (buffer-mark-col buffer) col))
           ((< linum (buffer-mark-linum buffer))
            (decf (buffer-mark-linum buffer))))
          (setf (car del-lines)
            (concatenate 'string
              (car del-lines)
  