From 02e1ee95a8d6459f455f1bfb5953b8798f069645 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Tue, 12 May 2020 04:20:26 +0300 Subject: [PATCH] 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 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 -- 2.39.5