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

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

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