anchor.diff:       :history history
        :sources (list (make-instance 'prompter:raw-source
                                      :name "New URL"
  -                                   :actions (append (unless (internal-buffer-p (current-buffer))
  -                                                      (list (make-unmapped-command buffer-load)))
  -                                                    (list (make-unmapped-command new-buffer-load))))
  +                                   :actions (list (make-unmapped-command buffer-load)
  +                                                  (make-unmapped-command new-buffer-load)))
                       (make-instance 'global-history-source
                                      ;; TODO: Multi-selection?
  -                                   :actions (append (unless (internal-buffer-p (current-buffer))
  -                                                      (list (make-unmapped-command buffer-load)))
  -                                                    (list (make-unmapped-command new-buffer-load-from-history))))
  +                                   :actions (list (make-unmapped-command buffer-load)
  +                                                  (make-unmapped-command new-buffer-load-from-history)))
                       (make-instance 'bookmark-source
  -                                   :actions (append (unless (internal-buffer-p (current-buffer))
  -                                                      (list (make-unmapped-command
  -                                                             buffer-load-from-bookmark)))
  -                                                    (list (make-unmapped-command
  -                                                           new-buffer-load-from-bookmark))))))))
  +                                   ;; TODO: New buffer?
  +                                   :multi-selection-p t)))))
   
   (define-command set-url-new-buffer (&key (prefill-current-url-p t))
     "Prompt for a URL and set it in a new focused buffer."
  
positive.code:                                    :name "New URL"
                                     :actions (list (make-unmapped-command new-buffer-load)))
                      (make-instance 'global-history-source
                                     :actions (list (make-unmapped-command new-buffer-load-from-history)))
                      (make-instance 'bookmark-source
                                     :actions (list (make-unmapped-command new-buffer-load-from-bookmark)))))))
  
  (define-command set-url-nosave-buffer (&key (prefill-current-url-p t))
    "Prompt for a URL and set it in a new focused nosave buffer."
  
negative.code:               (object-string (url (current-buffer))) "")
     :sources (list (make-instance 'prompter:raw-source
                                   :name "New URL"
                                   :actions (list (make-unmapped-command buffer-load)
                                                  (make-unmapped-command new-nosave-buffer-load)))
                    (make-instance 'global-history-source
                                   :actions (list (make-unmapped-command buffer-load)
                                                  (make-unmapped-command new-nosave-buffer-load-from-history))))))
  
  (defun reload-buffer (&optional (buffer (current-buffer)))
    "Reload a BUFFER or current-buffer if not provided."
  