anchor.diff:          (set-current-buffer (first matching-buffers))
           (switch-buffer-domain :domain domain))))
   
  -(define-command make-buffer-focus (&key (url :default) parent-buffer)
  +(define-command make-buffer-focus (&key (url :default) parent-buffer nosave-buffer-p)
     "Switch to a new buffer.
   See `make-buffer'."
  -  (let ((buffer (make-buffer :url url :parent-buffer parent-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))
   
  
positive.code:                                    ;; 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 "")
                                     (current-buffer))))))
  
  (define-command set-url-from-current-url ()
  
negative.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 set-url-nosave-buffer ()
    "Prompt for a URL and set it in a new focused nosave buffer."
    (set-url :new-buffer-p t :nosave-buffer-p t))
  
  (define-command reload-current-buffer (&optional (buffer (current-buffer)))
    "Reload of BUFFER or current buffer if unspecified."
  