texlive[51399] Master/texmf-dist/tex/generic/tex4ht/fontspec-4ht.lua:

[commits+karl at tug.org]

Revision: 51399
          http://tug.org/svn/texlive?view=revision&revision=51399
Author:   karl
Date:     2019-06-19 00:52:35 +0200 (Wed, 19 Jun 2019)
Log Message:
-----------
fix unicode specials at beginning of node list, tex4ht r578

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

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

Modified: trunk/Master/texmf-dist/tex/generic/tex4ht/fontspec-4ht.lua
===================================================================
--- trunk/Master/texmf-dist/tex/generic/tex4ht/fontspec-4ht.lua	2019-06-18 22:29:39 UTC (rev 51398)
+++ trunk/Master/texmf-dist/tex/generic/tex4ht/fontspec-4ht.lua	2019-06-18 22:52:35 UTC (rev 51399)
@@ -1,5 +1,5 @@
--- fontspec-4ht.lua (2019-05-27-14:22), generated from tex4ht-4ht.tex
--- Copyright 2016-2017 TeX Users Group
+-- fontspec-4ht.lua (2019-06-18-15:43), generated from tex4ht-4ht.tex
+-- Copyright 2016-2019 TeX Users Group
 --[[
 %
 % This work may be distributed and/or modified under the
@@ -17,7 +17,7 @@
 %
 % If you modify this program, changing the
 % version identification would be appreciated.
-\immediate\write-1{version 2019-05-27-14:22}
+\immediate\write-1{version 2019-06-18-15:43}
 
 --]]
 local M = {}
@@ -40,6 +40,14 @@
   return n
 end
 
+local function first_node(head)
+  local head = head
+  while head.prev do
+    head = head.prev
+  end
+  return head
+end
+
 -- this should be table with patterns for allowed fonts
 local allowed_names = {"^cmr", "^cmb","^cmt", "^cmb", "^cmcs", "^rm%-l", "^cmi", "^ec%-lm", "none"}
 
@@ -95,7 +103,7 @@
       n.dir = "+TLT"
     end
   end
-  return head
+  return first_node(head)
 end
 
 M.allowed = allowed_names