Commit 1ff7cde1 authored by Dmitry Gutov's avatar Dmitry Gutov

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).
parent 5d293f4f
Pipeline #10176 passed with stages
in 15 minutes and 46 seconds
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment