From efae0e68efc79bc5eb7c86a30c127006d3b374e2 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sat, 25 Nov 2023 17:04:32 +0200 Subject: [PATCH] (project-prompt-project-name): Simplify a bit * lisp/progmodes/project.el (project-prompt-project-name): Fold the inner 'let' into 'when-let'. --- lisp/progmodes/project.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 27cca2e0f35..f7f057396e1 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1802,12 +1802,12 @@ It's also possible to enter an arbitrary directory not in the list." ;; Iterate in reverse order so project--name-history is in ;; the same order as project--list. (dolist (dir (reverse (project-known-project-roots))) - ;; we filter out directories that no longer map to a project, + ;; We filter out directories that no longer map to a project, ;; since they don't have a clean project-name. - (when-let (proj (project--find-in-directory dir)) - (let ((name (project-name proj))) - (push name project--name-history) - (push (cons name proj) ret)))) + (when-let ((proj (project--find-in-directory dir)) + (name (project-name proj))) + (push name project--name-history) + (push (cons name proj) ret))) ret)) ;; XXX: Just using this for the category (for the substring ;; completion style). -- 2.39.5