anchor.diff:                                            (minibuffer (current-minibuffer))
                                             (buffer (current-buffer)))
     (let ((hint (flet ((hintp (hint-candidate)
  -                       (if (typep hint-candidate
  -                                  '(or link-hint button-hint match))
  +                       (if (typep hint-candidate '(or link-hint button-hint match))
                              hint-candidate
                              nil)))
                   (if completions
  
positive.code:                         :cleanup-function
                          (lambda ()
                            (remove-element-hints :buffer buffer))))
        (with-result (result (read-from-minibuffer minibuffer))
          (funcall function result)))))
  
  
negative.code:         (set-current-buffer (buffer hint))
          (setf buffer (buffer hint)))
        (if (or
             (not (slot-exists-p hint 'buffer))
             (and (slot-exists-p hint 'buffer)
                  (equal (buffer hint) buffer)))
            (highlight-selected-hint :buffer buffer
  