diff options
Diffstat (limited to 'Master/texmf-dist/tex/luatex/luatexja/patches/lltjp-microtype.sty')
-rw-r--r-- | Master/texmf-dist/tex/luatex/luatexja/patches/lltjp-microtype.sty | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/Master/texmf-dist/tex/luatex/luatexja/patches/lltjp-microtype.sty b/Master/texmf-dist/tex/luatex/luatexja/patches/lltjp-microtype.sty index 8b71f591e1f..db2fac84813 100644 --- a/Master/texmf-dist/tex/luatex/luatexja/patches/lltjp-microtype.sty +++ b/Master/texmf-dist/tex/luatex/luatexja/patches/lltjp-microtype.sty @@ -1,21 +1,32 @@ % -% lltjp-microtype.sty 2019-03-29 +% lltjp-microtype.sty 2019-08-12 % % (Work in Progress) % \NeedsTeXFormat{LaTeX2e} \RequirePackage{etoolbox} -\RequirePackage{luatexja} \makeatletter \def\MT@register@font{% - \xdef\MT@font@list{\expandonce{\MT@font@list}\MT@font,}% + \xdef\MT@font@list{\expandonce{\MT@font@list\MT@font},}% !!! } \def\MT@register@subst@font{\MT@exp@one@n\MT@in@clist\font@name\MT@font@list \ifMT@inlist@\else - \xdef\MT@font@list{\expandonce{\MT@font@list}\font@name,}% + \xdef\MT@font@list{\expandonce{\MT@font@list\font@name},}% !!! \fi} +\let\ltj@MT@tracking@\MT@tracking@ +\def\MT@tracking@{% + \MT@exp@one@n\MT@in@clist\MT@font\MT@tr@font@list + \ifMT@inlist@\else + \MT@maybe@do{tr}% + \ifMT@do\else + \xdef\MT@tr@font@list{\expandonce{\MT@tr@font@list\MT@font,}}% !!! + \fi + \fi +} +\ifx\MT@tracking\ltj@MT@tracking@\let\MT@tracking\MT@tracking@\fi + %\endinput \begingroup @@ -23,10 +34,11 @@ /MT@map@tlist@n{/\LτJCHAREX}/@makeother /lccode`/τ=`/t /lowercase{% /def/x{/endgroup + /def/MT@charstring{\CHAR"}% /def/MT@is@char##1\CHAR"##2##3##4/relax{% %/message{MIC <##1><##2><##3><##4>}% /ifx/relax##4/relax - /expandafter/MT@is@char@ltja/MT@strip@prefix##1/relax\LτJALCHAR\LτJALCHAR/relax + /expandafter/MT@is@char@ltja/MT@strip@prefix##1>/relax\LτJALCHAR\LτJALCHAR/relax /else /ifx/relax##1/relax /if##3\/relax @@ -40,15 +52,16 @@ /fi /fi }% + /def/MT@ltjs@drop@##1>##2/relax{##1}% /def/MT@is@char@ltja##1\LτJALCHAR##2\LτJALCHAR##3/relax{% + %/typeout{MICLTJA <##1><##2><##3>}% /ifx/relax##1/relax /ifx/relax##2/relax/else - /edef/MT@char@{/number##2}% + /edef/MT@char@{/expandafter/number/MT@ltjs@drop@##2>/relax}% /fi /fi }% }% } /x - \endinput |