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

[commits+karl at tug.org]

Revision: 53121
          http://tug.org/svn/texlive?view=revision&revision=53121
Author:   karl
Date:     2019-12-13 23:57:46 +0100 (Fri, 13 Dec 2019)
Log Message:
-----------
polyglossia direction fix, tex4ht r631

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

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	2019-12-13 22:51:49 UTC (rev 53120)
+++ trunk/Master/texmf-dist/tex/generic/tex4ht/usepackage.4ht	2019-12-13 22:57:46 UTC (rev 53121)
@@ -1,4 +1,4 @@
-% usepackage.4ht (2019-10-31-14:15), generated from tex4ht-4ht.tex
+% usepackage.4ht (2019-12-13-14:32), generated from tex4ht-4ht.tex
 % Copyright 2003-2009 Eitan M. Gurari
 % Copyright 2009-2019 TeX Users Group
 %
@@ -17,7 +17,7 @@
 %
 % If you modify this program, changing the
 % version identification would be appreciated.
-\immediate\write-1{version 2019-10-31-14:15}
+\immediate\write-1{version 2019-12-13-14:32}
 
    \def\:temp{tex4ht}\ifx \:temp\@currname
    \:warning{\string\usepackage{tex4ht} again?}
@@ -108,26 +108,22 @@
   \xeuniuseblock{CJK}
 }
 \fi
+\def\:temp{polyglossia}\ifx \@currname\:temp
+\ExplSyntaxOn
 \AtEndOfPackage{
-  \let\orig at xpg@define at keys\xpg at define@keys
-  \def\xpg at define@keys#1{%
-    \orig at xpg@define at keys{#1}%
-    \define at choicekey+[xpg at setup]{#1}{direction}[\val\nr]{LR,RL}[LR]%
-    {
-      \togglefalse{#1 at RL}%
-      \ifcase\nr\relax%
-        \csgappto{init at extras@#1}{%
-          a:PolyglossiaRtl%
-        }
-      \or
-        \csgappto{init at extras@#1}{%
-          \b:PolyglossiaRtl%
-        }
-      \fi
-    }%
-    {\xpg at warning{#1: Invalid value \val\space for key "direction"}}%
-}}
 
+\cs_set_eq:NN\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 = {}
+  }
+}
+\def\RequireBidi{}%
+}
+\ExplSyntaxOff
+\fi
 \def\:temp{fontspec}\ifx \@currname\:temp
   \ifdefined\fontspec
     \:dontusepackage{fontspec}