(declare-function grep-read-files "grep")
(declare-function xref-collect-matches "xref")
(declare-function xref--show-xrefs "xref")
+(declare-function xref-backend-identifier-at-point "xref")
;;;###autoload
(defun project-find-regexp (regexp)
(project--find-regexp-in dirs regexp pr)))
(defun project--read-regexp ()
- (defvar xref-identifier-at-point-function)
- (require 'xref)
(read-regexp "Find regexp"
- (funcall xref-identifier-at-point-function)))
+ (xref-backend-identifier-at-point (xref-find-backend))))
(defun project--find-regexp-in (dirs regexp project)
(require 'grep)
or an xref backend, which is a value to be used to dispatch the
generic functions.")
+;;;###autoload
(defun xref-find-backend ()
(run-hook-with-args-until-success 'xref-backend-functions))