masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-14 16:02:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use read-key in read-multiple-choice (bug#75886)

Browse source 
* 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.
This commit is contained in:
Gerd Möllmann 2025-01-27 08:58:30 +01:00
parent 4212b2630f
commit 1e01ae335d
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/rmc.el
View file

@ -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