anchor.diff:               dom-counter)
              (setf dom-counter 0)
              (count-dom-elements (nyxt/ps:qs document "html"))))
  -    (if (dead-buffer-p buffer)
  -        (call-next-method)
  -        (with-current-buffer buffer
  -          (let ((value (call-next-method))
  -                (element-count (%count-dom-elements)))
  -            (if (and value element-count
  -                     ;; Check whether the difference in element count is significant.
  -                     (< (abs (- (length (clss:select "*" value)) (truncate element-count)))
  -                        (document-model-delta-threshold buffer)))
  -                value
  -                (update-document-model :buffer buffer)))))))
  +         (if (dead-buffer-p buffer)
  +             (call-next-method)
  +             (with-current-buffer buffer
  +               (let ((value (call-next-method))
  +                     (element-count (%count-dom-elements)))
  +                 (if (and value element-count
  +                          ;; Check whether the difference in element count is significant.
  +                          (< (abs (- (length (clss:select "*" value)) (truncate element-count)))
  +                             (document-model-delta-threshold buffer)))
  +                     value
  +                     (update-document-model :buffer buffer)))))))
   
   (export-always 'get-nyxt-id)
   (defmethod get-nyxt-id ((element plump:element))
  
positive.code:           (:buffer-class (or null symbol)))
      *)
  (define-command make-buffer (&key (title "") modes (url (quri:uri "")) parent-buffer
                               no-history-p (load-url-p t) buffer-class)
    "Create a new buffer.
  MODES is a list of mode symbols.
  If URL is empty, the `default-new-buffer-url' buffer slot is used instead.
  
negative.code:     :documentation "If non-nil, the cursor moves to the end
  (resp. beginning) of the word when `move-forward-word'
  (resp. `move-backward-word') is called.")
     (override-map
      (let ((map (make-keymap "override-map")))
        (define-key map
          "C-space" 'execute-command))
      :documentation "Keymap that overrides all other bindings.
  
  `override-map` takes priority over everything, including text insertion, and is
  therefore better used with modifier-prefixed bindings.
  