diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/unicode-math/unicode-math-luatex.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/unicode-math/unicode-math-luatex.sty | 47 |
1 files changed, 13 insertions, 34 deletions
diff --git a/Master/texmf-dist/tex/latex/unicode-math/unicode-math-luatex.sty b/Master/texmf-dist/tex/latex/unicode-math/unicode-math-luatex.sty index 1866de6a515..06bf4687261 100644 --- a/Master/texmf-dist/tex/latex/unicode-math/unicode-math-luatex.sty +++ b/Master/texmf-dist/tex/latex/unicode-math/unicode-math-luatex.sty @@ -530,7 +530,10 @@ \tl_new:N \l__um_radicals_tl \tl_set:Nn \l__um_radicals_tl {\sqrt \longdivision} \cs_new_protected_nopar:Nn \__um_new_cramped_style:N - { \cs_new_eq:Nc #1 { luatex \cs_to_str:N #1 } } + { + \cs_if_exist:NF #1 + { \cs_new_eq:Nc #1 { luatex \cs_to_str:N #1 } } + } \__um_new_cramped_style:N \crampeddisplaystyle \__um_new_cramped_style:N \crampedtextstyle \__um_new_cramped_style:N \crampedscriptstyle @@ -1160,26 +1163,12 @@ } \CatchFileEdef \g__um_mathtable_tl {unicode-math-table.tex} {\__um_symbol_setup:} \cs_new:Nn \__um_input_math_symbol_table: {\g__um_mathtable_tl} +\cs_set:Npn \__um_cs_set_eq_active_char:Nw #1 = "#2 \q_nil + { + \exp_last_unbraced:NNx \cs_gset_eq:NN #1 { \Ucharcat "#2 ~ 12 ~ } + } \group_begin: \char_set_catcode_other:N \^ - \cs_gset:Npn \__um_cs_set_eq_active_char:Nw #1 = "#2 \q_nil - { - \tex_lowercase:D - { - \tl_rescan:nn - { - \ExplSyntaxOn - \char_set_catcode_other:N \{ - \char_set_catcode_other:N \} - \char_set_catcode_other:N \& - \char_set_catcode_other:N \% - \char_set_catcode_other:N \$ - } - { - \cs_gset_eq:NN #1 ^^^^^#2 - } - } - } \cs_new:Npn \__um_active_char_set:wc "#1 \q_nil #2 { \tex_lowercase:D @@ -1207,18 +1196,6 @@ \__um_input_math_symbol_table: \group_end: } -\group_begin: - \lccode`\*=`\\ - \char_set_catcode_escape:N \| - \char_set_catcode_other:N \\ - |lowercase - { - |AtBeginDocument - { - |let|backslash=* - } - } -|group_end: \AtBeginDocument { \__um_load_lm_if_necessary: } \cs_new:Nn \__um_load_lm_if_necessary: { @@ -1510,6 +1487,8 @@ \cs_set_eq:NN ^^^^2037 \__um_scan_sup_backtrprime: } \group_end: +\cs_if_exist:NF \Uroot + { \cs_new_eq:NN \Uroot \luatexUroot } \AtBeginDocument{\__um_redefine_radical:} \cs_new:Nn \__um_redefine_radical: { @@ -1517,7 +1496,7 @@ { \cs_set:Npn \root ##1 \of ##2 { - \luatexUroot \l__um_radical_sqrt_tl { ##1 } { ##2 } + \Uroot \l__um_radical_sqrt_tl { ##1 } { ##2 } } } } @@ -1869,7 +1848,7 @@ && \int_compare_p:nNn { \leftroot@ } = { \c_zero } } { - \luatexUroot \l__um_radical_sqrt_tl { #1 } { #2 } + \Uroot \l__um_radical_sqrt_tl { #1 } { #2 } } { \hbox_set:Nn \rootbox @@ -1910,7 +1889,7 @@ \mskip \uproot@ mu \c_math_toggle_token } - \luatexUroot \l__um_radical_sqrt_tl + \Uroot \l__um_radical_sqrt_tl { \box_move_up:nn { \box_wd:N \l_tmpa_box } { |