Merge branch 'kitagawa_adjust' of git.sourceforge.jp:/gitroot/luatex-ja/luatexja...

[luatex-ja/luatexja.git] / src / ltj-setwidth.lua

diff --git a/src/ltj-setwidth.lua b/src/ltj-setwidth.lua
index aed10da..9202858 100644 (file)
--- a/src/ltj-setwidth.lua
+++ b/src/ltj-setwidth.lua
@@ -173,8 +173,8 @@ local function capsule_glyph_tate(p, met, char_data, head, dir)
    local wm = node_new(id_whatsit, sid_matrix)
    setfield(wm, 'data', '0 1 -1 0')
    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 k2 = node_new(id_kern, 1); setfield(k2, 'kern', pwnh)
+   local k3 = node_new(id_kern, 1); 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);