X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fltj-compat.lua;h=bd798545f3f30386b4478f014df771c60c9863a9;hb=f078ac2f7998a102c7ec765e725f2269eed9f872;hp=a4c1d681cc58c7614c066920a535334a979e5df5;hpb=d33eb2f6279c6609b0095ce38f3a45f45d72043c;p=luatex-ja%2Fluatexja.git

diff --git a/src/ltj-compat.lua b/src/ltj-compat.lua
index a4c1d68..bd79854 100644
--- a/src/ltj-compat.lua
+++ b/src/ltj-compat.lua
@@ -18,6 +18,7 @@ end
 
 
 -- \kuten, \jis, \euc, \sjis, \ucs, \kansuji
+local utfchar=utf.char
 local function to_kansuji(num)
    if not num then num=0; return
    elseif num<0 then
@@ -25,7 +26,7 @@ local function to_kansuji(num)
    end
    local s = ""
    while num~=0 do
-      s = utf.char(
+      s = utfchar(
 	 ltjs.get_stack_table(luatexja.stack_table_index.KSJ + num%10,
 				'', tex.getcount('ltj@@stack'))) .. s
       num=math.floor(num/10)