anchor.diff:      ;; decides when redraw, it has more control.
       (prompt-render-suggestions prompt-buffer)))
   
  -(define-command select-previous-page (&key (prompt-buffer (current-prompt-buffer))
  -                                      (steps 1))
  +(define-command-prompt select-previous-page (&key (steps 1))
     "Select entry by STEPS previous page in prompt buffer.
   If STEPS is negative, go to next pages instead."
     (select-next-page :prompt-buffer prompt-buffer :steps (- steps)))
   
  -(define-command return-selection (&optional (prompt-buffer (current-prompt-buffer)))
  +(define-command-prompt return-selection ()
     "Have the PROMT-BUFFER return the selection, then quit."
     (prompter:return-selection prompt-buffer))
   
  
positive.code:    :value command
     :attributes (nyxt::command-attributes command (parent-prompt-buffer source))))
  
  (define-command run-prompt-buffer-command (&optional (prompt-buffer (current-prompt-buffer)))
    "Prompt for a command to call in PROMPT-BUFFER."
    (let ((command (first (prompt
                           :prompt "Command to run in current prompt buffer"
  
negative.code:             (nyxt::set-prompt-buffer-input input)))
          (echo "Prompt buffer has no history."))))
  
  (define-command-prompt insert-selection ()
    "Insert current selection default property in the prompt buffer input."
    (alex:when-let ((selection (prompter:attributes-default
                                (prompter:selected-suggestion prompt-buffer))))
  