From 1ff7cde1027778e608acbe58a81fe08c1fd84189 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Wed, 7 Apr 2021 03:24:17 +0300 Subject: [PATCH] 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 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)))) -- 2.39.5