[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 1ff7cde 2/2: Add explicit support for C-g or ESC ESC ESC after ke
From: |
Dmitry Gutov |
Subject: |
master 1ff7cde 2/2: Add explicit support for C-g or ESC ESC ESC after keymap prompt |
Date: |
Tue, 6 Apr 2021 20:25:29 -0400 (EDT) |
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))))