1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-19 04:21:45 -07:00

* lisp/progmodes/project.el (project-regexp-history-variable): New variable.

(project--read-regexp): Use it as HISTORY arg of 'read-regexp' with
'grep-regexp-history' default (bug#47012).
This commit is contained in:
Juri Linkov 2021-03-29 22:34:51 +03:00
parent fcc7373b28
commit b6552b1d7c

View file

@ -782,9 +782,12 @@ pattern to search for."
(user-error "No matches for: %s" regexp))
xrefs))
(defvar project-regexp-history-variable 'grep-regexp-history)
(defun project--read-regexp ()
(let ((sym (thing-at-point 'symbol t)))
(read-regexp "Find regexp" (and sym (regexp-quote sym)))))
(read-regexp "Find regexp" (and sym (regexp-quote sym))
project-regexp-history-variable)))
;;;###autoload
(defun project-find-file ()