anchor.diff:              (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)
  
positive.code: (defun buffer-insert-char (buffer linum col c)
    (buffer-read-only-guard buffer buffer-insert-char)
    (setf (buffer-modified-p buffer) t)
    (if (char= c #\newline)
      (buffer-insert-newline buffer linum col)
      (let ((line (buffer-get-line buffer linum)))
  
negative.code:   tail-line
    cache-line
    cache-linum
    (mark-linum 1)
    (mark-col 0)
    keep-binfo
    (nlines 1))
  
  