anchor.diff:       :input (if prefill-current-url-p
                   (render-url (url (current-buffer))) "")
        :history history
  -     :sources (list (make-instance 'prompter:raw-source
  -                                   :name "New URL"
  +     :sources (list (make-instance 'new-url-or-search-source
                                      :actions (list (make-unmapped-command buffer-load)
                                                     (make-unmapped-command new-buffer-load)))
                       (make-instance 'global-history-source
  
positive.code:    (prompter:actions '(buffer-load)))
    (:export-class-name-p t))
  
  (define-command set-url (&key (prefill-current-url-p t))
    "Set the URL for the current buffer, completing with history."
    (let ((history (set-url-history *browser*)))
  
negative.code:       (mapcar #'buffer-delete buffers-to-delete))))
  
  (export-always 'buffer-load)
  (declaim (ftype (function ((or new-url-query quri:uri string history-entry)
                             &key (:buffer buffer)))
                  buffer-load))
  (defun buffer-load (input-url &key (buffer (current-buffer)))
    "Load INPUT-URL in BUFFER.
  If INPUT-URL is a string, it's transformed to a `quri:uri' by `parse-url'.
  URL is then transformed by BUFFER's `buffer-load-hook'."
    (let* ((url (typecase input-url
                  (new-url-query
                   (url input-url))
                  (history-entry
                   (url input-url))
                  (t
  