diff options
| author | Gerd Möllmann <gerd@gnu.org> | 2025-02-06 05:31:38 +0100 |
|---|---|---|
| committer | Gerd Möllmann <gerd@gnu.org> | 2025-02-06 05:36:18 +0100 |
| commit | ea04dd8ca93d609c0ee475c4acf58a56dfc0f1f3 (patch) | |
| tree | ae1d0a44d7cbacc9a87b143324e6a56d012d50f7 /lisp/emacs-lisp | |
| parent | 1f4a26df862917c956e79fc2ca111caebf895623 (diff) | |
| download | emacs-ea04dd8ca93d609c0ee475c4acf58a56dfc0f1f3.tar.gz emacs-ea04dd8ca93d609c0ee475c4acf58a56dfc0f1f3.tar.bz2 emacs-ea04dd8ca93d609c0ee475c4acf58a56dfc0f1f3.zip | |
Use read-key in amp-y-or-n-p (bug#75886)
* 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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/map-ynp.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el index 14cbbfda033..18277b60fb8 100644 --- a/lisp/emacs-lisp/map-ynp.el +++ b/lisp/emacs-lisp/map-ynp.el @@ -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. |