anchor.diff:          (echo "Prompt buffer has no history."))))
   
   (define-command-prompt insert-selection (prompt-buffer)
  -  "Insert current selection default property in the prompt buffer input."
  +  "Insert current selection default property in the PROMPT-BUFFER input."
     (alex:when-let ((selection (prompter:attributes-default
                                 (prompter:selected-suggestion prompt-buffer))))
       (nyxt:set-prompt-buffer-input selection)))
  
positive.code:    (prompter:constructor (history-entries))))
  
  (define-command-prompt history (prompt-buffer)
    "Choose a prompt-buffer input history entry to insert as input."
    (let ((history (prompter:history prompt-buffer)))
      (if (and history (not (containers:empty-p history)))
          (let ((input (prompt1
  
negative.code:     ;; decides when redraw, it has more control.
      (prompt-render-suggestions prompt-buffer)))
  
  (define-command-prompt select-previous-page (prompt-buffer &key (n 1))
    "Select entry by N previous pages in PROMPT-BUFFER.
  If N is negative, go to next pages instead."
    (select-next-page :prompt-buffer prompt-buffer :n (- n)))
  
  (define-command-prompt return-selection (prompt-buffer)
    "Have the PROMPT-BUFFER return the selection, then quit."
    (prompter:return-selection prompt-buffer))
  
  (defun make-attribute-suggestion (attribute &optional source input)
    "Return a `suggestion' wrapped around ATTRIBUTE."
    (declare (ignore source input))
    (make-instance 'prompter:suggestion
                   :value attribute
  