anchor.diff:        (list
          "C-n" 'select-next
          "C-p" 'select-previous
  +       "C-v" 'select-next-page
  +       ;; "M-v" 'select-previous-page
          "return" 'return-selection))
       ;; TODO: We could have VI bindings for the minibuffer too.
       ;; But we need to make sure it's optional + to have an indicator
  
positive.code:   (update-suggestion-html prompt-buffer))
  
  (define-command select-previous (&optional (prompt-buffer (current-prompt-buffer)))
    "Select next entry in minibuffer."
    (prompter:select-previous (prompter prompt-buffer))
    (update-suggestion-html prompt-buffer))
  
  (define-command return-selection (&optional (prompt-buffer (current-prompt-buffer)))
  
negative.code:     )))
  
  (define-command select-next (&optional (prompt-buffer (current-prompt-buffer)))
    "Select next entry in prompt buffer."
    (prompter:select-next (prompter prompt-buffer))
    ;; TODO: Update display?  The library should probably decide when to update
    ;; it.  Drawback is that it maybe result in too many draws.  If the caller
  