From: Dmitry Gutov <dgutov@yandex.ru>
Date: Tue, 12 May 2020 01:20:26 +0000 (+0300)
Subject: Integrate project-switch-project with project-find-regexp
X-Git-Tag: emacs-28.0.90~7260^2~11
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02e1ee95a8d6459f455f1bfb5953b8798f069645;p=emacs.git

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.
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 12b7e3fdb93..da865255e36 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -808,6 +808,9 @@ LABEL is used to distinguish the function in the dispatch menu."
 (project-add-switch-command
  'project-find-file "f" "Find file")
 
+(project-add-switch-command
+ 'project-find-regexp "g" "Find regexp")
+
 (project-add-switch-command
  'project-dired "d" "Dired")
 
@@ -841,7 +844,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