mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

project-find-regexp: Default to symbol at point

Browse Source 
* lisp/progmodes/project.el (project--read-regexp):
Don't rely on the Xref backend to provide the default value.
This commit is contained in:
Dmitry Gutov 2019-12-09 16:27:28 +02:00
parent aed9584a0e
commit bb8f46d55b
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/progmodes/project.el
View File

@ -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 ()