master 1ff7cde 2/2: Add explicit support for C-g or ESC ESC ESC after keymap prompt

[Dmitry Gutov]

branch: master
commit 1ff7cde1027778e608acbe58a81fe08c1fd84189
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Add explicit support for C-g or ESC ESC ESC after keymap prompt
    
    * lisp/progmodes/project.el (project-switch-project):
    Add explicit support for C-g or ESC ESC ESC after keymap prompt
    (bug#47620).
---
 lisp/progmodes/project.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 84d02e2..a819e72 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1363,7 +1363,11 @@ to directory DIR."
                       (assq command commands-menu))
             ;; TODO: Add some hint to the prompt, like "key not
             ;; recognized" or something.
-            (setq command nil)))))
+            (setq command nil)))
+        (let ((global-command (lookup-key (current-global-map) choice)))
+          (when (memq global-command
+                      '(keyboard-quit keyboard-escape-quit))
+            (call-interactively global-command)))))
     (let ((default-directory dir)
           (project-current-inhibit-prompt t))
       (call-interactively command))))