From f50a58123a3d386b9bba7c4ba14df62479887bd4 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Mon, 6 May 2024 15:53:49 +0800 Subject: [PATCH] Disable text conversion in map-ynp * lisp/emacs-lisp/map-ynp.el (map-y-or-n-p): Read response with read-key, not read-char. --- lisp/emacs-lisp/map-ynp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el index b603f2e6d0b..d769b7ace64 100644 --- a/lisp/emacs-lisp/map-ynp.el +++ b/lisp/emacs-lisp/map-ynp.el @@ -168,7 +168,7 @@ The function's value is the number of actions taken." (key-description (vector help-char))) (if minibuffer-auto-raise (raise-frame (window-frame (minibuffer-window)))) - (setq char (read-event)) + (setq char (read-key)) ;; Show the answer to the question. (message "%s(y, n, !, ., q, %sor %s) %s" prompt user-keys