anchor.diff:      (when input
         (with-data-access (history (history-path buffer))
           (htree:go-to-child (htree:data input) history))
  -      (load-url-if-not-current input))))
  +      (load-history-url input))))
   
   (define-command history-forwards-maybe-query (&optional (buffer (current-buffer)))
     "If current node has multiple children, query which one to navigate to.
  
positive.code:     (when input
        (with-data-access (history (history-path buffer))
          (htree:forward history))
        (load-url-if-not-current input))))
  
  (defun history-all-suggestion-filter (&optional (buffer (current-buffer)))
    "Suggestion function over all history URLs."
  
negative.code:   "Scroll to top if no input element is active, forward event otherwise."
    (call-non-input-command-or-forward #'scroll-to-top :buffer buffer))
  
  (defun load-history-url (url-or-node
                           &key (buffer (current-buffer))
                             (message "History entry is already the current URL."))
    "Go to HISTORY-NODE's URL."
    (unless (quri:uri-p url-or-node)
      (setf url-or-node (url (htree:data url-or-node))))
    (if (quri:uri= url-or-node (url buffer))
        (echo message)
        (buffer-load url-or-node)))
  
  (define-command history-backwards (&optional (buffer (current-buffer)))
  