anchor.diff:    (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))
  +                 (mapcar #'%follow-hint-nosave-buffer (rest result)))))
   
   (define-command follow-hint-with-current-modes-new-buffer ()
     "Follow hint and open link in a new buffer with current modes."
  
positive.code:                  (lambda (result)
                     (%follow-hint-new-buffer-focus (first result) buffer)
                     (mapcar (alex:rcurry #'%follow-hint-new-buffer buffer)
                             (rest result)))
                   :multi-selection-p t)))
  
  (define-command follow-hint-nosave-buffer ()
    "Show a set of element hints, and open the user inputted one in a new
  nosave buffer (not set to visible active buffer)."
    (query-hints "Open element in new buffer"
                 (lambda (result) (mapcar #'%follow-hint-nosave-buffer result))
                 :multi-selection-p t))
  
  (define-command follow-hint-nosave-buffer-focus ()
    "Show a set of element hints, and open the user inputted one in a new
  
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
  