anchor.diff:               (line-offset end n)
                (line-start end)
                (copy-region start end)
  +             (kill-append "" nil '(:vi-line))
                (throw tag t)))
             ((visual-p)
              (with-output-to-string (out)
  
positive.code:              (line-end end)
               (let ((eob (not (character-offset end 1))))
                 (kill-region start end)
                 (if eob
                     (unless *vi-clear-recursive*
                       (delete-previous-char))
  
negative.code:              (unless (continue-flag :kill)
                 (kill-ring-new))
               (kill-push (get-output-stream-string out))
               (when (visual-line-p)
                 (kill-append "" nil '(:vi-line))))
             (vi-visual-end))
            (t
             (let ((command (loop with uarg = nil
  