From: Dmitry Gutov <dmitry@gutov.dev>
Date: Wed, 16 Oct 2024 22:57:40 +0000 (+0300)
Subject: New helper function project-read-project
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d93ca440f14ee882a3fab17b435745a1e9f409d;p=emacs.git

New helper function project-read-project

* lisp/progmodes/project.el (project-read-project): New helper.

(cherry picked from commit 561ab9829dd000a8078c6c66f7e8c29056adf31c)
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 7c5de25f4a7..15363c1db42 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1968,6 +1968,12 @@ When PROMPT is non-nil, use it as the prompt string."
   (project--ensure-read-project-list)
   (mapcar #'car project--list))
 
+(defun project-read-project ()
+  "Read a project with completion from the known list.
+Returns an object that the API methods can be used with."
+  ;; Will prompt again if the entered directory is not a project anymore.
+  (project-current t (funcall project-prompter)))
+
 ;;;###autoload
 (defun project-execute-extended-command ()
   "Execute an extended command in project root."