summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/luatexja/patches/lltjp-microtype.sty
diff options
context:
space:
mode:
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.sty27
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