anchor.diff:  
   (serapeum:export-always 'query-hints)
   (defun query-hints (prompt function
  -                    &key multi-selection-p
  +                    &key (multi-selection-p t)
                            annotate-visible-only-p
                            (selector
                                (alex:if-let ((mode (find-submode 'web-mode)))
  
positive.code:   (query-hints "Go to element in new buffer"
                 (lambda (result)
                   (%follow-hint-nosave-buffer-focus (first result))
                   (mapcar #'%follow-hint-nosave-buffer (rest result)))
                 :multi-selection-p t))
  
  (define-command follow-hint-with-current-modes-new-buffer ()
    "Follow hint and open link in a new buffer with current modes."
  
negative.code:   (let ((buffer (current-buffer)))
      (query-hints "Open element in new buffer"
                   (lambda (result) (mapcar (alex:rcurry #'%follow-hint-new-buffer buffer)
                                            result)))))
  
  (define-command follow-hint-new-buffer-focus ()
    "Show a set of element hints, and open the user inputted one in a new
  