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:   (setf (ps:@ document body content-editable) "false"))
  
  (define-command select-paragraph ()
    (query-paragraph-hints "Set caret on element" #'%follow-hint :annotate-visible-only-p t))
  
  (defparameter *mark-set* nil)
  
  (define-parenscript is-collapsed ()
    ;; returns "true" if mark's start and end are the same value
  
negative.code:       (select-paragraph)
        ;; imitating visual mode in vim
        (if (equal (keymap-scheme-name (buffer mode)) scheme:vi-normal)
          (defvar *mark-set* nil))))))
  
  (define-parenscript %add-paragraph-hints (&key annotate-visible-only-p)
    (defun qs (context selector)
  