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

diff --git a/src/ltj-compat.lua b/src/ltj-compat.lua
index bc8ac9d..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)
@@ -110,7 +111,7 @@ local function from_sjis(i)
 	if c1>0x7f then i=0x40 else i=0x3f end
 	c1 = c1 - i
      else
-	c1 = c1 - 0x7e
+	c1 = c1 - 0x9e
      end
      from_kuten(c2*256+c1)
   end