X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fpatches%2Flltjp-unicode-math.sty;h=d33e44f3787c832e0772492a7cdc510ac7e75e6a;hb=349262f15b7609ebb3166077bf73562a30eb7327;hp=75da566eb08a3293537377cda9de111046e130a4;hpb=7098bdc2e3608c04ea4142085f3b7feaa04ae452;p=luatex-ja%2Fluatexja.git diff --git a/src/patches/lltjp-unicode-math.sty b/src/patches/lltjp-unicode-math.sty index 75da566..d33e44f 100644 --- a/src/patches/lltjp-unicode-math.sty +++ b/src/patches/lltjp-unicode-math.sty @@ -10,31 +10,13 @@ \ExplSyntaxOn \group_begin: - \cs_gset:Nn \um_define_math_chars: { - \group_begin: - \char_set_catcode_math_superscript:N \^ - \cs_set:Npn \_um_sym:nnn ##1##2##3 { - \bool_if:nTF { \cs_if_eq_p:NN ##3 \mathaccent || - \cs_if_eq_p:NN ##3 \mathopen || - \cs_if_eq_p:NN ##3 \mathclose || - \cs_if_eq_p:NN ##3 \mathover || - \cs_if_eq_p:NN ##3 \mathunder || - \cs_if_eq_p:NN ##3 \mathbotaccent } { - \ltjsetmathletter{ ##1 } - } { - \um_cs_set_eq_active_char:Nw ##2 = ##1 \q_nil \ignorespaces - } - } - \char_set_catcode_other:N \# - \um_input_math_symbol_table: - \group_end: - } \cs_gset:Npn \um_cs_set_eq_active_char:Nw #1 = "#2 \q_nil {%" \group_begin: %\typeout {um: \string#1, \int_from_hexadecimal:n {#2}, #2}% <- for debug \char_set_lccode:nn { `! } { "#2 }%" \tex_lowercase:D { - \tl_set:Nn \l_tmpa_tl {\relax\ifmmode!\else{\directlua{tex.globaldefs = 0}\ltj@allalchar!}\fi} + \tl_set:Nn \l_tmpa_tl { \relax + \ifmmode!\else{\directlua{tex.globaldefs = 0}\ltj@allalchar!}\fi} \cs_gset_eq:NN #1 \l_tmpa_tl } \ltjsetmathletter{ \int_from_hexadecimal:n {#2} }