X-Git-Url: http://git.osdn.net/view?p=luatex-ja%2Fluatexja.git;a=blobdiff_plain;f=src%2Fltj-setwidth.lua;h=964d49e0635f976ab50f5854377e7493a912a4d6;hp=c4a0961bce19bcc997cae666eb68f40783136a1d;hb=2c45f80f79b73ade1d0fdfcb66734ba4ccd44838;hpb=50f709afa3325f2eaca91741e6dc238a5b29c4d2

diff --git a/src/ltj-setwidth.lua b/src/ltj-setwidth.lua
index c4a0961..964d49e 100644
--- a/src/ltj-setwidth.lua
+++ b/src/ltj-setwidth.lua
@@ -129,10 +129,12 @@ local function capsule_glyph_yoko(p, met, char_data, head, dir)
 
    local q
    head, q = node_remove(head, p)
-   if char_data.round_threshold then
-      local frac = pwidth / fwidth
-      local quot = floor(frac+0.5)
-      if abs(frac-quot) <char_data.round_threshold then fwidth = fwidth * quot end
+   if pwidth > fwidth then
+      if char_data.round_threshold then
+         local frac = pwidth / fwidth
+         local quot = floor(frac+0.5)
+	 if abs(frac-quot) <char_data.round_threshold then fwidth = fwidth * quot end
+      end
    end
    local xo, yo = getoffsets(p)
    setoffsets(p, xo + char_data.align*(fwidth-pwidth) - fshift.left,
@@ -196,7 +198,7 @@ local function capsule_glyph_tate(p, met, char_data, head, dir)
       pwidth, ascender = feir.vheight[pc]*met.size, feir.vorigin[pc]*met.size
    end
    fwidth = fwidth or pwidth
-   if fwidth~=pwidth and char_data.round_threshold then
+   if pwidth>fwidth and char_data.round_threshold then
       local frac = pwidth / fwidth
       local quot = floor(frac+0.5)
       if abs(frac-quot) <char_data.round_threshold then fwidth = fwidth * quot end