texlive[55278] Master/texmf-dist/tex/generic/tex4ht/usepackage.4ht:

[commits+karl at tug.org]

Revision: 55278
          http://tug.org/svn/texlive?view=revision&revision=55278
Author:   karl
Date:     2020-05-25 23:21:51 +0200 (Mon, 25 May 2020)
Log Message:
-----------
polyglossia script selected, tex4ht r697

Revision Links:
--------------
    http://tug.org/svn/texlive?view=revision&revision=697

Modified Paths:
--------------
    trunk/Master/texmf-dist/tex/generic/tex4ht/usepackage.4ht

Modified: trunk/Master/texmf-dist/tex/generic/tex4ht/usepackage.4ht
===================================================================
--- trunk/Master/texmf-dist/tex/generic/tex4ht/usepackage.4ht	2020-05-25 21:19:51 UTC (rev 55277)
+++ trunk/Master/texmf-dist/tex/generic/tex4ht/usepackage.4ht	2020-05-25 21:21:51 UTC (rev 55278)
@@ -1,4 +1,4 @@
-% usepackage.4ht (2020-05-22-13:46), generated from tex4ht-4ht.tex
+% usepackage.4ht (2020-05-25-14:00), generated from tex4ht-4ht.tex
 % Copyright 2003-2009 Eitan M. Gurari
 % Copyright 2009-2020 TeX Users Group
 %
@@ -17,7 +17,7 @@
 %
 % If you modify this program, changing the
 % version identification would be appreciated.
-\immediate\write-1{version 2020-05-22-13:46}
+\immediate\write-1{version 2020-05-25-14:00}
 
    \def\:temp{tex4ht}\ifx \:temp\@currname
    \:warning{\string\usepackage{tex4ht} again?}
@@ -123,7 +123,13 @@
   \orig_polyglossia at keys_define_lang:n{#1}
   \keys_define:nn {polyglossia}{
     #1 / direction
-    .  code:n = {}
+    .  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{}%