reduce overhead

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

diff --git a/src/ltj-jfont.lua b/src/ltj-jfont.lua
index 4c56b43..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