ltjclasses.dtx: Make ltjt*.cls compatible with \geometry, etc.

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

diff --git a/src/luatexja.lua b/src/luatexja.lua
index 4dc1d6b..1c67eb6 100644 (file)
--- a/src/luatexja.lua
+++ b/src/luatexja.lua
@@ -59,7 +59,6 @@ userid_table.IHB  = luatexbase.newuserwhatsitid('inhibitglue',  'luatexja') -- \
 userid_table.STCK = luatexbase.newuserwhatsitid('stack_marker', 'luatexja') -- スタック管理
 userid_table.BPAR = luatexbase.newuserwhatsitid('begin_par',    'luatexja') -- 「段落始め」
 userid_table.DIR  = luatexbase.newuserwhatsitid('direction',    'luatexja') -- 組方向
-userid_table.DNODE= luatexbase.newuserwhatsitid('dir_node',    'luatexja')  -- dir_node
 
 local dir_table = {}
 luatexja.dir_table = dir_table
@@ -462,6 +461,9 @@ local function debug_show_node_X(p,print_fn)
             print_fn(s)
          else
             s = s .. ' userid:' .. t .. '(node list)'
+           if p.user_id==userid_table.DIR then
+              s = s .. ' dir: ' .. tostring(node.has_attribute(p, attr_dir))
+           end
             print_fn(s)
             debug_depth=debug_depth.. '.'
             for q in node.traverse(p.value) do