From 1e01ae335dda0ebcbca71c50c066a3072dd9d022 Mon Sep 17 00:00:00 2001 From: Gerd Möllmann Date: Mon, 27 Jan 2025 08:58:30 +0100 Subject: Use read-key in read-multiple-choice (bug#75886) * lisp/emacs-lisp/rmc.el (read-multiple-choice--short-answers): Use read-key instead of read-event because read-event doesn't use input-decode-map. * test/lisp/emacs-lisp/rmc-tests.el: Use read-key instead of read-event. --- lisp/emacs-lisp/rmc.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el index 27e5d6c612b..c4df8cf2f98 100644 --- a/lisp/emacs-lisp/rmc.el +++ b/lisp/emacs-lisp/rmc.el @@ -216,8 +216,14 @@ Usage example: (car elem))) prompt-choices))) (condition-case nil - (let ((cursor-in-echo-area t)) - (read-event)) + (let ((cursor-in-echo-area t) + ;; Do NOT use read-event here. That + ;; function does not consult + ;; input-decode-map (bug#75886). + (key (read-key))) + (when (eq key ?\C-g) + (signal 'quit nil)) + key) (error nil)))) (if (memq (car-safe tchar) '(touchscreen-begin touchscreen-end -- cgit v1.2.3