(project-current): Fix the previous change

* lisp/progmodes/project.el (project-current):
Fix the previous change (bug#69584).

(cherry picked from commit 21f9be005318dcc58918884fc3c24d7d75562e96)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 879d7f403a59649941f3752315b65d8f0bfc727a..e5fb69651f216f961b3db8904814c6fb54edeba5 100644 (file)
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -229,8 +229,8 @@ See the doc string of `project-find-functions' for the general form
 of the project instance object."
   (unless directory (setq directory (or project-current-directory-override
                                         default-directory)))
-  (let ((pr (project--find-in-directory directory))
-        (non-essential (not maybe-prompt)))
+  (let* ((non-essential (not maybe-prompt))
+         (pr (project--find-in-directory directory)))
     (cond
      (pr)
      ((unless project-current-directory-override