X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fltj-direction.lua;h=a4f2ff2003a36558676f7830ea703b1e6c4c5bb0;hb=92890522808ce362e8fe4b3162ab97e86a8066de;hp=b334ed464261bf8ec22f9659e4378bd997d2aefc;hpb=9ea8f9cbe5824b0642cd6f3a74a31cf81af96ed4;p=luatex-ja%2Fluatexja.git

diff --git a/src/ltj-direction.lua b/src/ltj-direction.lua
index b334ed4..a4f2ff2 100644
--- a/src/ltj-direction.lua
+++ b/src/ltj-direction.lua
@@ -140,6 +140,7 @@ do
    local node_traverse = node.traverse
    local STCK = luatexja.userid_table.STCK
    local IHB = luatexja.userid_table.IHB
+   local sid_local = node.subtype('local_par')
 
    local function test_list(h, lv)
       if not h then
@@ -149,14 +150,15 @@ do
 	 local w
 	 for p in node_traverse(h) do
 	    if p.id==id_whatsit then
-	       if p.subtype==sid_user then
+	       local ps = p.subtype
+	       if ps==sid_user then
 		  local uid= p.user_id
 		  if uid==DIR then
 		     flag = 1; w = w or p -- found
 		  elseif not(uid==IHB or uid==STCK) then
 		     flag = 0; break -- error
 		  end
-	       else
+	       elseif ps~=sid_local then
 		  flag = 0; break
 	       end
 	    else