diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2019-12-09 16:27:28 +0200 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2019-12-09 16:27:28 +0200 |
| commit | bb8f46d55bb369589ae475e47ad948da88c0d31d (patch) | |
| tree | c1f33490ca3e6ffc305115b0c2f94675b9d39312 /lisp | |
| parent | aed9584a0e26abead740805e48dcfecc00bc7ce8 (diff) | |
| download | emacs-bb8f46d55bb369589ae475e47ad948da88c0d31d.tar.gz emacs-bb8f46d55bb369589ae475e47ad948da88c0d31d.tar.bz2 emacs-bb8f46d55bb369589ae475e47ad948da88c0d31d.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/project.el | 5 |
1 files 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 () |