2 % lltjp-microtype.sty 2019-03-29
6 \NeedsTeXFormat{LaTeX2e}
8 \RequirePackage{etoolbox}
9 \RequirePackage{luatexja}
12 \def\MT@register@font{%
13 \xdef\MT@font@list{\expandonce{\MT@font@list}\MT@font,}%
15 \def\MT@register@subst@font{\MT@exp@one@n\MT@in@clist\font@name\MT@font@list
17 \xdef\MT@font@list{\expandonce{\MT@font@list}\font@name,}%
23 /MT@map@tlist@n{/\LτJCHAREX}/@makeother /lccode`/τ=`/t
26 /def/MT@is@char##1\CHAR"##2##3##4/relax{%
27 %/message{MIC <##1><##2><##3><##4>}%
29 /expandafter/MT@is@char@ltja/MT@strip@prefix##1/relax\LτJALCHAR\LτJALCHAR/relax
33 /edef/MT@char@{/number"##2}%
34 /MT@ifstreq/MT@charstring{##3##4}/relax/MT@norestfalse
36 /edef/MT@char@{/number"##2##3}%
37 /MT@ifstreq/MT@charstring{##4}/relax
38 {/MT@is@xchar##2##3|##4\CHAR"/relax}%
43 /def/MT@is@char@ltja##1\LτJALCHAR##2\LτJALCHAR##3/relax{%
45 /ifx/relax##2/relax/else
46 /edef/MT@char@{/number##2}%