From 705152bb7b6f7e212bb7e7d531e2d975bd5495c2 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Mon, 27 Apr 2026 11:38:56 +0200 Subject: [PATCH] (transient--suspend-text-conversion-style): Avoid static-if ; * lisp/transient.el (transient--suspend-text-conversion-style): Use safer version/platform conditional. --- lisp/transient.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) 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))