anchor.diff:                                     ;; Make empty buffer, or else there might be
                                      ;; a race condition between the URL that's
                                      ;; loaded and the default one.
  -                                   (make-buffer-focus :url "")
  +                                   (make-buffer-focus :url "" :nosave-buffer-p nosave-buffer-p)
                                      (current-buffer))))))
   
   (define-command set-url-from-current-url ()
  
positive.code: (define-command set-url-new-buffer ()
    "Prompt for a URL and set it in a new focused buffer."
    (set-url :new-buffer-p t))
  
  (define-command reload-current-buffer (&optional (buffer (current-buffer)))
    "Reload of BUFFER or current buffer if unspecified."
  
negative.code:         (set-current-buffer (first matching-buffers))
          (switch-buffer-domain :domain domain))))
  
  (define-command make-buffer-focus (&key (url :default) parent-buffer nosave-buffer-p)
    "Switch to a new buffer.
  See `make-buffer'."
    (let ((buffer (if nosave-buffer-p
                      (make-nosave-buffer :url url)
                      (make-buffer :url url :parent-buffer parent-buffer))))
      (set-current-buffer buffer)
      buffer))
  
  