--- local function table_to_str(v)
--- local s = ''
--- for i, a in pairs(v) do
--- s = s .. i .. "=" .. tostring(a) .. ', '
--- end
--- return s
--- end
--- function print_stack_table(i)
--- print('\n>>> get_stack_level:')
--- for k, v in pairs(charprop_stack_table[i]) do
--- print(" " , k, type(k), table_to_str(v));
--- end
--- end
-
+local function set_stack_table(m, p)
+ local i = get_stack_level()
+ charprop_stack_table[i][m] = p
+ if luatexja.isglobal=='global' then
+ for j,v in pairs(charprop_stack_table) do
+ charprop_stack_table[j][m] = p
+ end
+ end
+end
+ltjs.set_stack_table = set_stack_table