diff options
| author | Gerd Möllmann <gerd@gnu.org> | 2025-01-27 08:58:30 +0100 |
|---|---|---|
| committer | Gerd Möllmann <gerd@gnu.org> | 2025-02-04 15:38:02 +0100 |
| commit | 1e01ae335dda0ebcbca71c50c066a3072dd9d022 (patch) | |
| tree | d5ff11cd6493b33c9e1988229683fbea8c04ce48 /lisp/emacs-lisp | |
| parent | 4212b2630f7a9d754810c8c9641e766534b44098 (diff) | |
| download | emacs-1e01ae335dda0ebcbca71c50c066a3072dd9d022.tar.gz emacs-1e01ae335dda0ebcbca71c50c066a3072dd9d022.tar.bz2 emacs-1e01ae335dda0ebcbca71c50c066a3072dd9d022.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/rmc.el | 10 |
1 files changed, 8 insertions, 2 deletions
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 |