anchor.diff:               (when (symbolp command)
                  (with-point ((start (current-point)))
                    (let ((*vi-yank-recursive* t)
  -                       (*forward-matching-paren-offset* 0))
  +                       (*cursor-offset* 0))
                      (catch tag
                        (call-command command n)
                        (when (point/= start (current-point))
  
positive.code:   (with-point ((p p))
      (when (or skip (syntax-open-paren-char-p (character-at p)))
        (scan-lists p 1 0)
        (character-offset p *forward-matching-paren-offset*))))
  
  (defun backward-matching-paren (p)
    (when (syntax-closed-paren-char-p (character-at p))
  
negative.code:            :vi-normal))
  (in-package :lem-vi-mode.commands)
  
  (defvar *cursor-offset* -1)
  
  (defun bolp (point)
    (zerop (point-charpos point)))
  