From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Sun, 23 Nov 2014 02:56:45 +0000 (+0900)
Subject: Fix ticket #34631
X-Git-Tag: 20150420.0~73
X-Git-Url: http://git.osdn.jp/view?a=commitdiff_plain;h=ad7590c6e540c91f572cdfcb79fda80d10590d7a;p=luatex-ja%2Fluatexja.git

Fix ticket #34631
---

diff --git a/src/ltj-setwidth.lua b/src/ltj-setwidth.lua
index 7d282d5..0a5c678 100644
--- a/src/ltj-setwidth.lua
+++ b/src/ltj-setwidth.lua
@@ -179,9 +179,9 @@ local function capsule_glyph_tate(p, met, class, head, dir)
    local ws = node_new(id_whatsit, sid_save)
    local wm = node_new(id_whatsit, sid_matrix)
    setfield(wm, 'data', '0 1 -1 0')
-   local pwnh = - 0.5*getfield(p, 'width')
-   local k2 = node_new(id_kern); setfield(k2, 'kern', - 0.5*getfield(p, 'width'))
-   local k3 = node_copy(k2)
+   local pwnh = -round(0.5*getfield(p, 'width'))
+   local k2 = node_new(id_kern); setfield(k2, 'kern', pwnh)
+   local k3 = node_new(id_kern); setfield(k3, 'kern', -getfield(p, 'width')-pwnh)
    local wr = node_new(id_whatsit, sid_restore)
    setfield(box, 'head', ws)
    setfield(ws, 'next', wm);  setfield(wm, 'next', k2);