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

        ((use-region-p)
         (buffer-substring-no-properties (region-beginning)
                                         (region-end)))
        ((thing-at-point 'symbol t))))

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

  "Show a list of references to the symbol at point.

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

