anchor.diff:  (defun goto-eol (point)
     (line-end point)
     (unless (bolp point)
  -    (character-offset point -1)))
  +    (character-offset point *cursor-offset*)))
   
   (defun empty-line (point)
     (zerop (length (line-string point))))
  
positive.code:              (when (symbolp command)
                 (with-point ((start (current-point)))
                   (let ((*vi-delete-recursive* t)
                         (*forward-matching-paren-offset* 0))
                     (catch tag
                       (call-command command nil)
                       (when (point/= start (current-point))
  
negative.code:              (when (symbolp command)
                 (with-point ((start (current-point)))
                   (let ((*vi-yank-recursive* t)
                         (*cursor-offset* 0))
                     (catch tag
                       (call-command command n)
                       (when (point/= start (current-point))
  