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.
This commit is contained in:
Po Lu 2024-05-06 15:53:49 +08:00
parent 2f36fc1b4f
commit f50a58123a

View file

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