X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fltj-base.lua;h=f5535d65c67f28a5c8d8b87133233ceadf29894c;hb=eb118f3e5ea0852407b5261817700401699528b9;hp=a560df663aece3851ee35bd2c574a8a8e24e3c8a;hpb=4285693e49ee8fdf6681a1343a0e8f86a5e73511;p=luatex-ja%2Fluatexja.git

diff --git a/src/ltj-base.lua b/src/ltj-base.lua
index a560df6..f5535d6 100644
--- a/src/ltj-base.lua
+++ b/src/ltj-base.lua
@@ -563,6 +563,17 @@ do
    ltjb.save_cache = save_cache
 end
 
+----
+do
+   local tex_set_attr, tex_get_attr = tex.setattribute, tex.getattribute
+   function ltjb.ensure_tex_attr(a, v)
+      if tex_get_attr(a)~=v then
+	 tex_set_attr(a, v)
+      end
+   end
+end
+----
+
 ltjb._error_set_break = _error_set_break
 ltjb._error_set_message = _error_set_message
 ltjb._error_show = _error_show