Commit 6ccf7859 authored by Glenn Morris's avatar Glenn Morris
Browse files

* lisp/subr.el (read-char-choice): Allow quitting. (Bug#9001)

parent 4baf28e6
2011-07-15 Glenn Morris <rgm@gnu.org>
* subr.el (read-char-choice): Allow quitting. (Bug#9001)
2011-07-09 Lawrence Mitchell <wence@gmx.li>
* net/gnutls.el (gnutls-min-prime-bits): New variable.
......
......@@ -2161,7 +2161,9 @@ keyboard-quit events while waiting for a valid input."
;; read-event returns -1 if we are in a kbd macro and
;; there are no more events in the macro. Attempt to
;; get an event interactively.
(setq executing-kbd-macro nil)))))
(setq executing-kbd-macro nil))
((and (not inhibit-keyboard-quit) (eq char ?\C-g))
(keyboard-quit)))))
;; Display the question with the answer. But without cursor-in-echo-area.
(message "%s%s" prompt (char-to-string char))
char))
......
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