Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

(transient--suspend-text-conversion-style): Avoid static-if

Browse source 
; * lisp/transient.el (transient--suspend-text-conversion-style): Use
safer version/platform conditional.
This commit is contained in:
Jonas Bernoulli 2026-04-27 11:38:56 +02:00
parent 99b0199253
commit 705152bb7b
No known key found for this signature in database
GPG key ID: 230C2EFBB326D927
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/transient.el
View file

@ -5524,15 +5524,14 @@ search instead."
lisp-imenu-generic-expression :test #'equal)
(defun transient--suspend-text-conversion-style ()
;; Added in Emacs 30.1, but not defined on all platforms.
(static-when (boundp 'overriding-text-conversion-style)
(when text-conversion-style
(letrec ((suspended overriding-text-conversion-style)
(fn (lambda ()
(setq overriding-text-conversion-style nil)
(remove-hook 'transient-exit-hook fn))))
(setq overriding-text-conversion-style suspended)
(add-hook 'transient-exit-hook fn)))))
(when (and text-conversion-style
(bound-and-true-p overriding-text-conversion-style))
(letrec ((suspended overriding-text-conversion-style)
(fn (lambda ()
(setq overriding-text-conversion-style nil)
(remove-hook 'transient-exit-hook fn))))
(setq overriding-text-conversion-style suspended)
(add-hook 'transient-exit-hook fn))))
(declare-function which-key-mode "ext:which-key" (&optional arg))