reduce overhead

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

diff --git a/src/ltj-jfont.lua b/src/ltj-jfont.lua
index bc4362d..8d1416b 100644 (file)
--- a/src/ltj-jfont.lua
+++ b/src/ltj-jfont.lua
@@ -460,7 +460,12 @@ do
       size = sp(size); extract_metric(spec)
       jfm_dir = 'tate'
       local i = load_jfont_metric(); update_jfm_cache(i, size)
-      luatexja.jfont.tfont_jfmonly_result = metrics[i].size_cache[size]
+      tex.sprint(cat_lp, 
+        '\\noexpand\\directlua{luatexja.jfont.set_tfont_jfmonly_result('
+         .. tostring(i) .. ',' .. tostring(size) .. ')}')
+   end
+   function luatexja.jfont.set_tfont_jfmonly_result(i,s)
+      luatexja.jfont.tfont_jfmonly_result=metrics[i].size_cache[s]
    end
    luatexja.jfont.load_tfont_jfmonly = load_tfont_jfmonly
 end
@@ -651,7 +656,7 @@ do
    -- EXT
    function luatexja.jfont.does_alt_set(bbase)
       aftl_base = alt_font_table_latex[bbase]
-      tex.sprint(cat_lp, '\\if' .. (aftl_base and 'true' or 'false'))
+      tex.sprint(cat_lp, aftl_base and '\\@firstofone' or '\\@gobble')
    end
    -- EXT
    function luatexja.jfont.print_aftl_address()