anchor.diff:  (define-key *visual-keymap* "Escape" 'vi-visual-end)
   (define-key *visual-keymap* "A" 'vi-visual-append)
   (define-key *visual-keymap* "I" 'vi-visual-insert)
  +(define-key *visual-keymap* "U" 'vi-visual-upcase)
  +(define-key *visual-keymap* "u" 'vi-visual-downcase)
   
   (define-vi-state visual (:keymap *visual-keymap*
                            :post-command-hook 'post-command-hook)
  
positive.code:         (change-state 'visual 'visual-block)
          (message "-- VISUAL BLOCK --"))))
  
  (defun string-without-escape ()
    (concatenate 'string
                 (loop for key-char = (key-to-char (read-key))
  
negative.code:            :visual-block-p
             :apply-visual-range
             :vi-visual-insert
             :vi-visual-append
             :vi-visual-upcase
             :vi-visual-downcase))
  (in-package :lem-vi-mode.visual)
  
  (defvar *set-visual-function* nil)
  