feature/lookup: fix lookup commands skipping to project text search

modules/feature/lookup/autoload/lookup.el

@@ -25,7 +25,8 @@
         ((xref-backend-identifier-at-point (xref-find-backend)))))
 
 (defun +lookup--jump-to (prop identifier)
-  (cl-loop for fn in (plist-get '(:definition +lookup-definition-functions
+  (cl-loop with origin = (point-marker)
+           for fn in (plist-get (list :definition +lookup-definition-functions
                                       :references +lookup-references-functions
                                       :documentation +lookup-documentation-functions)
                                 prop)
@@ -38,6 +39,16 @@
                 ('error (ignore (message "%s" e))))
            return it))
 
+;;;###autoload
+(defun +lookup-xref-definitions (identifier)
+  "Non-interactive wrapper for `xref-find-definitions'"
+  (xref-find-definitions identifier))
+
+;;;###autoload
+(defun +lookup-xref-references (identifier)
+  "Non-interactive wrapper for `xref-find-references'"
+  (xref-find-references identifier))
+
 
 ;;
 ;; Main commands

modules/feature/lookup/config.el

@@ -33,12 +33,12 @@ produces an url. Used by `+lookup/online'.")
 (defvar +lookup-open-url-fn #'browse-url
   "Function to use to open search urls.")
 
-(defvar +lookup-definition-functions '(xref-find-definitions)
+(defvar +lookup-definition-functions '(+lookup-xref-definitions)
   "Functions for `+lookup/definition' to try, before resorting to `dumb-jump'.
 Stops at the first function to return non-nil or change the current
 window/point.")
 
-(defvar +lookup-references-functions '(xref-find-references)
+(defvar +lookup-references-functions '(+lookup-xref-references)
   "Functions for `+lookup/references' to try, before resorting to `dumb-jump'.
 Stops at the first function to return non-nil or change the current
 window/point.")