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

[Juri Linkov]

branch: master
commit b6552b1d7c5e6eb66b7b641efa3a0fe175fb7eba
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * 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).
---
 lisp/progmodes/project.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index f154654..4101962 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -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 ()