From 7d93ca440f14ee882a3fab17b435745a1e9f409d Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Thu, 17 Oct 2024 01:57:40 +0300 Subject: [PATCH] New helper function project-read-project * lisp/progmodes/project.el (project-read-project): New helper. (cherry picked from commit 561ab9829dd000a8078c6c66f7e8c29056adf31c) --- lisp/progmodes/project.el | 6 ++++++ 1 file changed, 6 insertions(+) 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." -- 2.39.5