From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 9 Dec 2019 14:27:28 +0000 (+0200)
Subject: project-find-regexp: Default to symbol at point
X-Git-Tag: emacs-27.0.90~399
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb8f46d55bb369589ae475e47ad948da88c0d31d;p=emacs.git

project-find-regexp: Default to symbol at point

* lisp/progmodes/project.el (project--read-regexp):
Don't rely on the Xref backend to provide the default value.
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 5627a215739..e45cb5db127 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -389,7 +389,6 @@ DIRS must contain directory names."
 
 (declare-function grep-read-files "grep")
 (declare-function xref--show-xrefs "xref")
-(declare-function xref-backend-identifier-at-point "xref")
 (declare-function xref--find-ignores-arguments "xref")
 (declare-function xref--regexp-to-extended "xref")
 (declare-function xref--convert-hits "xref")
@@ -506,8 +505,8 @@ pattern to search for."
         (delete-file infile)))))
 
 (defun project--read-regexp ()
-  (let ((id (xref-backend-identifier-at-point (xref-find-backend))))
-    (read-regexp "Find regexp" (and id (regexp-quote id)))))
+  (let ((sym (thing-at-point 'symbol)))
+    (read-regexp "Find regexp" (and sym (regexp-quote sym)))))
 
 ;;;###autoload
 (defun project-find-file ()