scratch/project-switching-x 90a749b 5/5: Integrate project-switch-project with project-find-regexp

[Dmitry Gutov]

branch: scratch/project-switching-x
commit 90a749bde29bb417ed2cc4e4501ea5ebe9c8b435
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Integrate project-switch-project with project-find-regexp
    
    * lisp/progmodes/project.el:
    (project-find-regexp): Add to the list of 'switch' commands.
    (project-switch-project): Use call-interactively so that the
    former can read its arguments.
---
 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 39c122f..ac56537 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -744,6 +744,9 @@ LABEL is used to distinguish the function in the dispatch 
menu."
  'project-find-file "f" "Find file")
 
 (project-add-switch-command
+ 'project-find-regexp "g" "Find regexp")
+
+(project-add-switch-command
  'project-dired "d" "Dired")
 
 (project-add-switch-command
@@ -776,7 +779,7 @@ and presented in a dispatch menu."
     (if (equal choice (kbd "C-g"))
         (message "Quit")
       (let ((default-directory dir))
-        (funcall (assoc-default choice project--switch-alist))))))
+        (call-interactively (assoc-default choice project--switch-alist))))))
 
 (provide 'project)
 ;;; project.el ends here