From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Mon, 2 Nov 2015 05:24:31 +0000 (+0900)
Subject: fix ticket #34244
X-Git-Tag: 20151103.0~2
X-Git-Url: http://git.osdn.jp/view?a=commitdiff_plain;h=92890522808ce362e8fe4b3162ab97e86a8066de;p=luatex-ja%2Fluatexja.git

fix ticket #34244
---

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