mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 15:00:34 -08:00
Code Issues Projects Releases Wiki Activity

Use read-key in amp-y-or-n-p (bug#75886)

Browse source 
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p): Use read-key
so that C-g in recognized when defined in input-decode-map.
This commit is contained in:
Gerd Möllmann 2025-02-06 05:31:38 +01:00
parent 1f4a26df86
commit ea04dd8ca9
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/map-ynp.el
View file

@ -185,7 +185,12 @@ The function's value is the number of actions taken."
(let ((overriding-text-conversion-style nil))
(when (fboundp 'set-text-conversion-style)
(set-text-conversion-style text-conversion-style))
(setq char (read-event)))
;; Do NOT use read-event here. That
;; function does not consult
;; input-decode-map (bug#75886).
(setq char (read-key))
(when (eq char ?\C-g)
(signal 'quit nil)))
(when (fboundp 'set-text-conversion-style)
(set-text-conversion-style text-conversion-style)))
;; Show the answer to the question.