[tex4ht-commits] [SCM] tex4ht updated: r807 - trunk/lit

[michal_h21 at gnu.org.ua]

Author: michal_h21
Date: 2020-10-06 01:24:54 +0300 (Tue, 06 Oct 2020)
New Revision: 807

Modified:
   trunk/lit/tex4ht-4ht.tex
Log:
better fix for the polyglossia issue

Modified: trunk/lit/tex4ht-4ht.tex
===================================================================
--- trunk/lit/tex4ht-4ht.tex	2020-10-05 21:47:13 UTC (rev 806)
+++ trunk/lit/tex4ht-4ht.tex	2020-10-05 22:24:54 UTC (rev 807)
@@ -3801,17 +3801,24 @@
 \def\:temp{polyglossia}\ifx \@currname\:temp
 \ExplSyntaxOn
 \:AtEndOfPackage{
-\keys_define:nn {polyglossia}{
-  #1 / direction
-  .  code:n = {},
-  #1 / script
-  .  code:n = {\ifdefined\XeTeXversion
-    \edef\:tempscript{\str_uppercase:f{\tl_head:n {#1}}\tl_tail:n{#1}}
-    \xeuniuseblock{#1}
-    \expandafter\xeuniuseblock\expandafter{\:tempscript}
-  \fi},
+\ifdefined\orig_polyglossia at keys_define_lang:n\else
+\cs_set_eq:NN\orig_polyglossia at keys_define_lang:n\polyglossia at keys_define_lang:n
+%\let\orig_polyglossia at keys_define_lang:n\polyglossia at keys_define_lang:n
+\cs_set_protected:Npn \polyglossia at keys_define_lang:n #1 {
+   \orig_polyglossia at keys_define_lang:n{#1}
+   \keys_define:nn {polyglossia}{
+     #1 / direction
+     .  code:n = {},
+     #1 / script
+     .  code:n = {\ifdefined\XeTeXversion
+       \edef\:tempscript{\str_uppercase:f{\tl_head:n {#1}}\tl_tail:n{#1}}
+       \xeuniuseblock{#1}
+       \expandafter\xeuniuseblock\expandafter{\:tempscript}
+     \fi},
+   }
 }
 \def\RequireBidi{}%
+\fi
 }
 \ExplSyntaxOff
 \fi