anchor.diff:                                        :input-prompt "Navigate to:"
                                         :completion-function (history-all-completion-fn))))
       (unless (equal input "No history.")
  -      (set-url input))))
  +      (set-url-from-history input))))
   
   (define-command copy-url ()
     "Save current URL to clipboard."
  
positive.code:   (echo "Finished loading: ~a." url)
    ;; TODO: Wait some time before dismissing the minibuffer.
    (echo-dismiss))
  
negative.code:   (with-result (input (read-from-minibuffer
                         (make-instance 'next::minibuffer
                                        :input-prompt "Navigate forwards to (all branches):"
                                        :completion-function (history-forwards-all-completion-fn))))
      (unless (equal input "Cannot navigate forwards.")
        (set-url-from-history input))))
  
  (defun history-all-completion-fn (&optional (mode (find-mode
                                                     (current-buffer)
                                                     'web-mode)))
    "Completion function over all history URLs."
    (let ((urls (htree:all-nodes (history mode))))
      (lambda (input)
        (if urls
            (fuzzy-match input urls)
  