Commit 90a749bd authored by Dmitry Gutov's avatar Dmitry Gutov

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.
parent 9cfc9c98
Pipeline #5569 failed with stage
in 36 minutes and 34 seconds
......@@ -743,6 +743,9 @@ LABEL is used to distinguish the function in the dispatch menu."
'project-find-file "f" "Find file")
'project-find-regexp "g" "Find regexp")
'project-dired "d" "Dired")
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment