X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fltj-adjust.lua;h=acbccf6d7772dfb604a12bb5cc2ad04853a2bbfe;hb=87b89782a97fd43447fca40383ba1b967d1c611e;hp=8ffc07c730ddc92d4a6becf5d937c6e79a0ed816;hpb=1e82f0e4622eb444cdbe71da94ebbf509be05be7;p=luatex-ja%2Fluatexja.git

diff --git a/src/ltj-adjust.lua b/src/ltj-adjust.lua
index 8ffc07c..acbccf6 100644
--- a/src/ltj-adjust.lua
+++ b/src/ltj-adjust.lua
@@ -169,12 +169,19 @@ local function aw_step1(p, total, ntr)
    for i, v in ipairs(eadt) do
       local t = total - v
       if t>0 then
-	 eadt_ratio[i] = {i, t/total_st[65536*total_st.order], t}
+	 eadt_ratio[i] = {i, t/total_st[65536*total_st.order], t, v}
       else
-	 eadt_ratio[i] = {i, t/total_sh[65536*total_sh.order], t}
+	 eadt_ratio[i] = {i, t/total_sh[65536*total_sh.order], t, v}
       end
    end
-   table.sort(eadt_ratio, function (a,b) return abs(a[2])<abs(b[2]) end)
+   table.sort(eadt_ratio, 
+   function (a,b) 
+       for i=2,4 do
+	   local at, bt = abs(a[i]), abs(b[i])
+	   if at~=bt then return at<bt end
+       end
+       return a[4]<b[4]
+   end)
    --print('min', eadt[eadt_ratio[1][1]], eadt_ratio[1][3])
    if eadt[eadt_ratio[1][1]]~=0 then
       local kn = node_new(id_kern)