anchor.diff:            (setf (url buffer) (quri:uri url))))
       buffer))
   
  -(define-command make-internal-buffer (&key (title "") modes
  -                                      no-history-p)
  +(define-command make-internal-buffer (&key (title "") modes no-history-p)
     "Create a new buffer.
   MODES is a list of mode symbols.
   If URL is `:default', use `default-new-buffer-url'."
  -  (buffer-make *browser* :title title :default-modes modes :internal-buffer-p t
  -               :no-history-p no-history-p))
  +  (buffer-make *browser* :title title
  +                         :default-modes modes
  +                         :buffer-class 'user-internal-buffer
  +                         :no-history-p no-history-p))
   
   (declaim (ftype (function (browser &key (:title string)
                                      (:data-profile data-profile)
                                      (:default-modes list)
                                      (:dead-buffer buffer)
                                      (:nosave-buffer-p boolean)
  -                                   (:internal-buffer-p boolean)
  +                                   (:buffer-class symbol)
                                      (:parent-buffer buffer)
                                      (:no-history-p boolean)))
                   buffer-make))
   (defun buffer-make (browser &key data-profile title default-modes
  -                                 dead-buffer internal-buffer-p
  +                                 dead-buffer (buffer-class 'user-web-buffer)
                                    parent-buffer no-history-p
                                    (nosave-buffer-p (nosave-buffer-p parent-buffer)))
     "Make buffer with title TITLE and modes DEFAULT-MODES.
  
positive.code: LOAD-URL-P controls whether to load URL right at buffer creation."
    (let* ((buffer (buffer-make *browser* :title title
                                          :default-modes modes
                                          :nosave-buffer-p t))
           (url (if (eq url :default)
                    (default-new-buffer-url buffer)
                    url)))
  
negative.code:                       ;; Dead buffer ID must be renewed before calling `ffi-buffer-make'.
                        (setf (id dead-buffer) (get-unique-buffer-identifier *browser*))
                        (ffi-buffer-make dead-buffer))
                      (apply #'make-instance buffer-class
                             :id (get-unique-buffer-identifier *browser*)
                             (append (when title `(:title ,title))
                                     (when default-modes `(:default-modes ,default-modes))
  