From: Dmitry Gutov <dgutov@yandex.ru>
Date: Wed, 9 Dec 2020 20:56:12 +0000 (+0200)
Subject: Allow specifying the project to switch to programmatically
X-Git-Tag: emacs-28.0.90~4806
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5af6a87d51fd5008c05876616c665679ffd0a597;p=emacs.git

Allow specifying the project to switch to programmatically

* lisp/progmodes/project.el (project-switch-project):
Allow specifying the project to switch to programmatically
(bug#45134).
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 449eadc3de7..98ad41487a1 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1275,13 +1275,15 @@ the menu entries in the dispatch menu.")
    "  "))
 
 ;;;###autoload
-(defun project-switch-project ()
+(defun project-switch-project (dir)
   "\"Switch\" to another project by running an Emacs command.
 The available commands are presented as a dispatch menu
-made from `project-switch-commands'."
-  (interactive)
-  (let ((dir (project-prompt-project-dir))
-        (choice nil))
+made from `project-switch-commands'.
+
+When called in a program, it will use the project corresponding
+to directory DIR."
+  (interactive (list (project-prompt-project-dir)))
+  (let ((choice nil))
     (while (not choice)
       (setq choice (assq (read-event (project--keymap-prompt))
                          project-switch-commands)))