From: Dmitry Gutov <dgutov@yandex.ru>
Date: Wed, 7 Apr 2021 00:24:17 +0000 (+0300)
Subject: Add explicit support for C-g or ESC ESC ESC after keymap prompt
X-Git-Tag: emacs-28.0.90~2983
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ff7cde1027778e608acbe58a81fe08c1fd84189;p=emacs.git

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

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 84d02e25d93..a819e7243ca 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))))