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 7c5de25f4a75df58d8aa6132c206773fc9f82450..15363c1db42d3e1093101645385571eca9b91760 100644 (file)
--- 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."