anchor.diff:         "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
  +       "v" 'toggle-mark
          "C-c" 'visual-mode)))
  +   (mark-set nil)
      (destructor
       (lambda (mode)
         (make-page-uneditable)
         (unlock-page-keypresses)
  -      (defparameter *mark-set* nil)))
  +      (setf (mark-set mode) nil)))
      (constructor
       (lambda (mode)
         (make-page-editable)
  
positive.code:   "Add hints to text elements on the page and open a minibuffer for selecting them."
    (query-paragraph-hints "Set caret on element" #'%follow-hint :annotate-visible-only-p t))
  
  (defvar *mark-set* nil)
  
  (define-parenscript is-collapsed ()
    ;; returns "true" if mark's start and end are the same value
    (defun is-collapsed ()
  
negative.code:       (select-paragraph)
        ;; imitating visual mode in vim
        (if (equal (keymap-scheme-name (buffer mode)) scheme:vi-normal)
            (setf (mark-set mode) t))))))
  
  (define-parenscript %add-paragraph-hints (&key annotate-visible-only-p)
    (defun qs (context selector)
  