anchor.diff:    "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-url-if-not-current (url-or-node &optional (buffer (current-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 "History entry is already the current URL.")
  +      (echo message)
         (buffer-load url-or-node)))
   
   (define-command history-backwards (&optional (buffer (current-buffer)))
  
positive.code:                 (htree:backward-owned-parents history)
                  (htree:backward history))
              (htree:current-owner-node history))))
      (load-url-if-not-current new-node)))
  
  (define-command history-forwards (&optional (buffer (current-buffer)))
    "Go to forward URL in history."
  
negative.code:         ;; See `history-forwards-query' comment.
          (loop until (eq input (htree:current-owner-node history))
                do (htree:backward history)))
        (load-history-url input))))
  
  (defun history-forwards-direct-children-suggestion-filter (&optional (buffer (current-buffer)))
    "Suggestion function over forward-children URL."
  