[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master bb8f46d: project-find-regexp: Default to symbol at point
From: |
Dmitry Gutov |
Subject: |
master bb8f46d: project-find-regexp: Default to symbol at point |
Date: |
Mon, 9 Dec 2019 09:27:42 -0500 (EST) |
branch: master
commit bb8f46d55bb369589ae475e47ad948da88c0d31d
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
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 5627a21..e45cb5d 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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master bb8f46d: project-find-regexp: Default to symbol at point,
Dmitry Gutov <=