anchor.diff:             :visual-char-p
              :visual-line-p
              :visual-block-p
  -           :apply-visual-range))
  +           :apply-visual-range
  +           :vi-visual-insert))
   (in-package :lem-vi-mode.visual)
   
   (defvar *set-visual-function* nil)
  
positive.code:         (change-state 'visual 'visual-block)
          (message "-- VISUAL BLOCK --"))))
  
  (defun visual-p ()
    (eq 'visual (current-state)))
  
  
negative.code: (defvar *visual-keymap* (make-keymap :name '*visual-keymap* :parent *command-keymap*))
  
  (define-key *visual-keymap* "Escape" 'vi-visual-end)
  (define-key *visual-keymap* "I" 'vi-visual-insert)
  
  (define-vi-state visual (:keymap *visual-keymap*
                           :post-command-hook 'post-command-hook)
  