diff --git a/lisp/transient.el b/lisp/transient.el index f0c17fdfc2c..4068966dafd 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -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))