Suspend text-conversion-style while transient is active

It has been reported that this is necessary on Android and the author
of the Android port suspends this for Isearch too, see [1: 2dcce30290d].

Closes #376.
Closes #377.

1: 2023-02-16 2dcce30290dc7782e9de3b4adf59f38b42408c98
   Update Android port

Author: tarsius

lisp/transient.el

@@ -2323,6 +2323,7 @@ EDIT may be non-nil."
        (transient--redisplay))
      (get name 'transient--prefix))
     (transient--setup-transient)
+    (transient--suspend-text-conversion-style)
     (transient--suspend-which-key-mode)))
 
 (cl-defgeneric transient-setup-children (group children)
@@ -5110,6 +5111,16 @@ search instead."
                   2)
             lisp-imenu-generic-expression :test #'equal)
 
+(defun transient--suspend-text-conversion-style ()
+  (static-if (boundp 'text-conversion-style) ; since Emasc 30.1
+      (when text-conversion-style
+        (letrec ((suspended text-conversion-style)
+                 (fn (lambda ()
+                       (set-text-conversion-style suspended)
+                       (remove-hook 'transient-exit-hook fn))))
+          (set-text-conversion-style nil)
+          (add-hook 'transient-exit-hook fn)))))
+
 (declare-function which-key-mode "ext:which-key" (&optional arg))
 
 (defun transient--suspend-which-key-mode ()