   "Show a list of references to the symbol at point.
 
 Tries `xref-find-references' and falls back to rg/ag."
-  (interactive (list (thing-at-point 'symbol t)))
+  (interactive
+   (list (+lookup--symbol-or-region)))
   (cond ((and (plist-member +lookup-current-functions :references)
               (+lookup--jump-to :references identifier)))
 


Failing all that, it will give up with an error."
  (interactive
   (list (xref-backend-identifier-at-point (xref-find-backend))
         current-prefix-arg))
  (cond ((null identifier)
         (user-error "Nothing under point"))


        ((use-region-p)
         (buffer-substring-no-properties (region-beginning)
                                         (region-end)))
        ((xref-backend-identifier-at-point (xref-find-backend)))))

(defun +lookup--jump-to (prop identifier &optional other-window)
  (with-selected-window
