Add TeX interfaces \ltj{,un}setmathletter.

 * Rename internal macro names:
   * \ltj@@kchar -> \ltj@@jachar
   * \ltj@@achar -> \ltj@@alchar

diff --git a/src/luatexja-core.sty b/src/luatexja-core.sty
index b0233cc..3e0a6c7 100644 (file)
--- a/src/luatexja-core.sty
+++ b/src/luatexja-core.sty
@@ -426,12 +426,14 @@
     \csname ltj@kcat5\endcsname="7FFFFFFF %"
     \csname ltj@kcat6\endcsname="7FFFFFFF }%"
 
-\protected\def\ltjjachar{\afterassignment\ltj@@kchar\ltj@tempcnta}
-\def\ltj@@kchar{{\directlua{tex.globaldefs = 0}\ltj@alljachar\ltj@@origchar\ltj@tempcnta}}
-\protected\def\ltjalchar{\afterassignment\ltj@@achar\ltj@tempcnta}
-\def\ltj@@achar{{\directlua{tex.globaldefs = 0}\ltj@allalchar\ltj@@origchar\ltj@tempcnta}}
-
-
+\protected\def\ltjjachar{\afterassignment\ltj@@jachar\ltj@tempcnta}
+\def\ltj@@jachar{{\directlua{tex.globaldefs = 0}\ltj@alljachar\ltj@@origchar\ltj@tempcnta}}
+\protected\def\ltjalchar{\afterassignment\ltj@@alchar\ltj@tempcnta}
+\def\ltj@@alchar{{\directlua{tex.globaldefs = 0}\ltj@allalchar\ltj@@origchar\ltj@tempcnta}}
+
+%%%%%%%% \ltjsetmathletter<number>, \ltjunsetmathletter<number>
+\def\ltjsetmathletter#1{\directlua{luatexja.math.is_math_letters[#1]=true}}
+\def\ltjunsetmathletter#1{\directlua{luatexja.math.is_math_letters[#1]=false}}
 
 %%------------------ Load module for the format
 

diff --git a/src/patches/lltjp-unicode-math.sty b/src/patches/lltjp-unicode-math.sty
index beb3261..b3a5216 100644 (file)
--- a/src/patches/lltjp-unicode-math.sty
+++ b/src/patches/lltjp-unicode-math.sty
@@ -11,17 +11,17 @@
 \cs_set:Npn \um_set_mathcode:nnnn #1#2#3#4 {
   \Umathcode \int_eval:n {#1} =
   \mathchar@type#2 \csname sym#3\endcsname \int_eval:n {#4} \scan_stop:
-  \directlua{luatexja.math.is_math_letters[\int_eval:n {#4}]=true}
+  \ltjsetmathletter{\int_eval:n {#4}}
 }
 \cs_set:Npn \um_set_mathcode:nnn #1#2#3 {
   \Umathcode \int_eval:n {#1} =
   \mathchar@type#2 \csname sym#3\endcsname \int_eval:n {#1} \scan_stop:
-  \directlua{luatexja.math.is_math_letters[\int_eval:n {#1}]=true}
+  \ltjsetmathletter{\int_eval:n {#1}}
 }
 \cs_set:Npn \um_set_mathchar:NNnn #1#2#3#4 {
   \Umathchardef #1 =
   \mathchar@type#2 \csname sym#3\endcsname \int_eval:n {#4} \scan_stop:
-  \directlua{luatexja.math.is_math_letters[\int_eval:n {#4}]=true}
+  \ltjsetmathletter{\int_eval:n {#4}}
 }
 \group_begin:
   \cs_gset:Npn \um_cs_set_eq_active_char:Nw #1 = "#2 \q_nil {%"