anchor.diff:             :vi-normal))
   (in-package :lem-vi-mode.commands)
   
  -(defvar *forward-matching-paren-offset* -1)
  +(defvar *cursor-offset* -1)
   
   (defun bolp (point)
     (zerop (point-charpos 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))
  