initial version of luatexja-zhfonts.sty.

[luatex-ja/luatexja.git] / src / ltj-stack.lua

diff --git a/src/ltj-stack.lua b/src/ltj-stack.lua
index 2a2d73a..9602939 100644 (file)
--- a/src/ltj-stack.lua
+++ b/src/ltj-stack.lua
@@ -3,8 +3,7 @@
 --
 luatexbase.provides_module({
   name = 'luatexja.stack',
-  date = '2011/04/01',
-  version = '0.1',
+  date = '2013/04/13',
   description = 'LuaTeX-ja stack system',
 })
 module('luatexja.stack', package.seeall)
@@ -15,6 +14,7 @@ luatexja.load_module('base');      local ltjb = luatexja.base
 local node_new = node.new
 local id_whatsit = node.id('whatsit')
 local sid_user = node.subtype('user_defined')
+local STCK = luatexja.userid_table.STCK
 hmode = 0 -- dummy 
 
 charprop_stack_table={}; 
@@ -40,7 +40,7 @@ function get_stack_level()
       if tex.nest[tex.nest.ptr].mode == hmode or
         tex.nest[tex.nest.ptr].mode == -hmode then
         local g = node_new(id_whatsit, sid_user)
-        g.user_id=30112; g.type=100; g.value=j; node.write(g)
+        g.user_id=STCK; g.type=100; g.value=j; node.write(g)
       end
    end
    return i