anchor.diff:    "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
  -                (string
  -                 (parse-url input-url))
  -                (history-entry
  -                 (url input-url))
  -                (t
  -                 input-url)))
  -         (new-url
  -           (handler-case
  -               (hooks:run-hook (slot-value buffer 'buffer-load-hook) url)
  -             (error (c)
  -               (log:error "In `buffer-load-hook': ~a" c)
  -               nil))))
  +  (unless (internal-buffer-p buffer)
  +    (let* ((url (typecase input-url
  +                  (string
  +                   (parse-url input-url))
  +                  (history-entry
  +                   (url input-url))
  +                  (t
  +                   input-url)))
  +           (new-url
  +             (handler-case
  +                 (hooks:run-hook (slot-value buffer 'buffer-load-hook) url)
  +               (error (c)
  +                 (log:error "In `buffer-load-hook': ~a" c)
  +                 nil))))
         (when new-url
           (check-type new-url quri:uri)
           (setf url new-url)
  
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)))))))
  
  (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 new-nosave-buffer-load)))
                    (make-instance 'global-history-source
                                   :actions (list (make-unmapped-command new-nosave-buffer-load-from-history)))
                    (make-instance 'bookmark-source
                                   :actions (list (make-unmapped-command new-nosave-buffer-load-from-bookmark))))))
  
  (defun reload-buffer (&optional (buffer (current-buffer)))
    "Reload a BUFFER or current-buffer if not provided."
  