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:                                                         (current-buffer)
                                                          'web-mode)))
    "Completion function over all parent URLs."
    (let ((parents (htree:parent-nodes (history mode))))
      (lambda (input)
        (if parents
            (fuzzy-match input parents)
  