From: Dmitry Gutov <dmitry@gutov.dev>
Date: Sat, 25 Nov 2023 15:04:32 +0000 (+0200)
Subject: (project-prompt-project-name): Simplify a bit
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efae0e68efc79bc5eb7c86a30c127006d3b374e2;p=emacs.git

(project-prompt-project-name): Simplify a bit

* lisp/progmodes/project.el (project-prompt-project-name):
Fold the inner 'let' into 'when-let'.
---

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).