From: Dmitry Gutov 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."