From: Juri Linkov <juri@linkov.net>
Date: Sun, 1 Aug 2021 20:43:37 +0000 (+0300)
Subject: * lisp/progmodes/project.el (project-switch-project): Use 'let*' (bug#49635).
X-Git-Tag: emacs-28.0.90~1606
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a6f67d60e13e06a8d07e54e63f93801a39b5c04b;p=emacs.git

* lisp/progmodes/project.el (project-switch-project): Use 'let*' (bug#49635).

This allows overriding-local-map to have effect on read-key-sequence.
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index eab60756c8f..0e732864268 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1386,8 +1386,8 @@ to directory DIR."
                 (define-key temp-map (vector keychar) cmd)))))
          command)
     (while (not command)
-      (let ((overriding-local-map commands-map)
-            (choice (read-key-sequence (project--keymap-prompt))))
+      (let* ((overriding-local-map commands-map)
+             (choice (read-key-sequence (project--keymap-prompt))))
         (when (setq command (lookup-key commands-map choice))
           (unless (or project-switch-use-entire-map
                       (assq command commands-menu))