anchor.diff:    "Visual mode."
     ((keymap-scheme
       (define-scheme "visual"
  +      scheme:cua
  +      (list
  +       "up" 'backward-line
  +       "down" 'forward-line
  +       "left" 'forward-char
  +       "right" 'forward-char
  +       "escape" 'visual-mode)
         scheme:emacs
         (list
          "C-h" 'select-paragraph
  
positive.code:        "C-e" 'end-line
         "M-a" 'backward-sentence
         "M-e" 'forward-sentence)
        ;; vi keybindings only enable use of plain "visual" mode for now
        scheme:vi-normal
        (list
         "h" 'backward-char
  
negative.code:        "l" 'forward-char
         "w" 'forward-word
         "$" 'end-line
         "keypadend" 'end-line
         "space" 'forward-char
         "backspace" 'backward-char
         "0" 'beginning-line
         "keypadhome" 'beginning-line
         "v" 'visual-mode
         "C-c" 'visual-mode)))
     (destructor
      (lambda (mode)
        (make-page-uneditable)
        (unlock-page-keypresses)
        (defparameter *mark-set* nil)))
     (constructor
      (lambda (mode)
        (make-page-editable)
  