From bb8f46d55bb369589ae475e47ad948da88c0d31d Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Mon, 9 Dec 2019 16:27:28 +0200 Subject: [PATCH] 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. --- lisp/progmodes/project.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 () -- 2.39.2