procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Correct earlier change to map-ynp

Browse source 
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p): Don't call
set-text-conversion-style if not bound.
This commit is contained in:
Po Lu 2024-05-08 20:22:29 +08:00
parent 339b8349f4
commit 32b8c07817
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -178,9 +178,11 @@ The function's value is the number of actions taken."
;; https://lists.gnu.org/archive/html/emacs-devel/2024-05/msg00441.html
;; for the details.
(let ((overriding-text-conversion-style nil))
(set-text-conversion-style text-conversion-style)
(when (fboundp 'set-text-conversion-style)
(set-text-conversion-style text-conversion-style))
(setq char (read-event)))
(set-text-conversion-style text-conversion-style))
(when (fboundp 'set-text-conversion-style)
(set-text-conversion-style text-conversion-style)))
;; Show the answer to the question.
(message "%s(y, n, !, ., q, %sor %s) %s"
prompt user-keys