X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fltj-math.lua;h=df28db036fb064351847a04ce82ee8877c88e960;hb=1379fbf6aae445cdce3906e7b83cc1c8550e78d5;hp=4aefe63bb462ba5b9e11b2d7bd7ad2db97bc1965;hpb=21a99e7265f96d2f77c8c5b6450dd24d91237707;p=luatex-ja%2Fluatexja.git diff --git a/src/ltj-math.lua b/src/ltj-math.lua index 4aefe63..df28db0 100644 --- a/src/ltj-math.lua +++ b/src/ltj-math.lua @@ -90,9 +90,9 @@ local function conv_jchar_to_hbox(head, sty) else sty = 2 end end - end + end return head -end +end local MJT = luatexja.stack_table_index.MJT local MJS = luatexja.stack_table_index.MJS @@ -100,7 +100,7 @@ local MJSS = luatexja.stack_table_index.MJSS local capsule_glyph_math = ltjw.capsule_glyph_math local is_ucs_in_japanese_char = ltjc.is_ucs_in_japanese_char_direct -conv_jchar_to_hbox_A = +conv_jchar_to_hbox_A = function (p, sty) if not p then return nil else @@ -118,7 +118,7 @@ function (p, sty) local q = node_new(id_sub_box) local r = node_new(id_glyph); setfield(r, 'next', nil) setfield(r, 'char', pc); setfield(r, 'font', f); setfield(r, 'subtype', 256) - local k = has_attr(r,attr_ykblshift) or 0 + local k = has_attr(r,attr_ykblshift) or 0 set_attr(r, attr_ykblshift, 0) -- ltj-setwidth 内で実際の位置補正はおこなうので,補正量を退避 local met = ltjf_font_metric_table[f] @@ -135,7 +135,7 @@ function (p, sty) return p end -luatexbase.add_to_callback('mlist_to_hlist', +luatexbase.add_to_callback('mlist_to_hlist', function (n, display_type, penalties) local head = to_node(conv_jchar_to_hbox(to_direct(n), 0)) head = node.mlist_to_hlist(head, display_type, penalties)