From 9b71492d54912fa29aa0a46c7c212eb8d9b47207 Mon Sep 17 00:00:00 2001
From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Mon, 4 Apr 2016 22:34:37 +0900
Subject: [PATCH] luatexja.lua: added setglue check

---
 src/luatexja.lua | 28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

diff --git a/src/luatexja.lua b/src/luatexja.lua
index 1134195..38d5517 100644
--- a/src/luatexja.lua
+++ b/src/luatexja.lua
@@ -20,15 +20,27 @@ function luatexja.load_lua(fn)
    end
 end
 
-local setfield = node.direct.setfield
-luatexja.setglue = node.direct.setglue or
-   function(g,w,st,sh,sto,sho)
-      setfield(g,'width', w or 0)
-      setfield(g,'stretch',st or 0)
-      setfield(g,'shrink', sh or 0)
-      setfield(g,'stretch_order',sto or 0)
-      setfield(g,'shrink_order', sho or 0)
+-- node.direct.setglue is corrupted in r5903
+do
+    local setfield = node.direct.setfield
+    local setglue = node.direct.setglue
+    if setglue then
+	local g = node.direct.new(node.id('glue'))
+	setglue(g, 128,256,512,2,1)
+	local w,st,sh,sto,sho = node.direct.getglue(g)
+	if (w~=128)or(st~=256)or(sh~=512)or(sto~=2)or(sho~=1) then
+	    setglue = nil
+	end
+    end
+    luatexja.setglue = setglue or
+    function(g,w,st,sh,sto,sho)
+	setfield(g,'width', w or 0)
+	setfield(g,'stretch',st or 0)
+	setfield(g,'shrink', sh or 0)
+	setfield(g,'stretch_order',sto or 0)
+	setfield(g,'shrink_order', sho or 0)
     end
+end
 
 --- 以下は全ファイルで共有される定数
 local icflag_table = {}
-- 
2.11.0