anchor.diff:  (define-command history-forwards-maybe-query (&optional (buffer (current-buffer)))
     "If current node has multiple children, query which one to navigate to.
   Otherwise go forward to the only child."
  -  (with-data-unsafe (history (history-path buffer))
  +  (with-history (history buffer)
       (if (<= 2 (length
                  (if (conservative-history-movement-p (find-mode buffer 'web-mode))
                      (htree:owned-children (htree:current-owner history))
  
positive.code:   "Open a new buffer displaying the whole history branch the current buffer is on."
    (nyxt::with-current-html-buffer (output-buffer "*History*"
                                                   'nyxt/history-tree-mode:history-tree-mode)
      (with-data-unsafe (history (history-path (current-buffer)))
        (let ((mode (find-submode output-buffer 'nyxt/history-tree-mode:history-tree-mode))
              (tree (spinneret:with-html-string
                      (:ul (:raw (htree:map-tree
  
negative.code:   (add-url-to-history url (buffer mode) mode)
    (reset-page-zoom :buffer (buffer mode)
                     :ratio (current-zoom-ratio (buffer mode)))
    (with-history (history (buffer mode))
      (sera:and-let* ((owner (htree:owner history (id (buffer mode))))
                      (node (htree:current owner))
                      (data (htree:data node))
  