summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/unicode-math/unicode-math-luatex.sty
diff options
context:
space:
mode:
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.sty47
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 }
{