From 10e5a41d5f67f94e28fea1783505adc4473f9f10 Mon Sep 17 00:00:00 2001 From: Hironori Kitagawa Date: Tue, 30 Sep 2014 21:23:37 +0900 Subject: [PATCH] ltj-adjust.lua: now works again --- src/ltj-adjust.lua | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/ltj-adjust.lua b/src/ltj-adjust.lua index 3882c51..22c0db7 100644 --- a/src/ltj-adjust.lua +++ b/src/ltj-adjust.lua @@ -174,7 +174,8 @@ end -- step 1: 行末に kern を挿入（句読点，中点用） local ltjd_glyph_from_packed = ltjd.glyph_from_packed local function aw_step1(p, res, total) - local x = node_tail(getlist(p)); if not x then return false end + local head = getlist(p) + local x = node_tail(head); if not x then return false end -- x: \rightskip x = node_prev(x); if not x then return false end if getid(x) == id_glue and getsubtype(x) == 15 then @@ -206,7 +207,7 @@ local function aw_step1(p, res, total) local kn = node_new(id_kern) setfield(kn, 'kern', (res.name=='shrink' and -1 or 1) * xk) set_attr(kn, attr_icflag, FROM_JFM) - insert_after(p, x, kn) + insert_after(head, x, kn) return true else return false end -- 2.11.0