X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fltj-charrange.lua;h=e3478ab81802641d1c5e0a067d29aca9f85c6532;hb=71b90c7904b04549fca6522f9bcef1c59f9f0e0f;hp=6d13c91634979dbe1b5ba214e7ad18ed9b3273c3;hpb=c35bc9236b8c249d3089a824fe197d0d1cde7e78;p=luatex-ja%2Fluatexja.git

diff --git a/src/ltj-charrange.lua b/src/ltj-charrange.lua
index 6d13c91..e3478ab 100644
--- a/src/ltj-charrange.lua
+++ b/src/ltj-charrange.lua
@@ -3,8 +3,7 @@
 --
 luatexbase.provides_module({
   name = 'luatexja.charrange',
-  date = '2011/04/01',
-  version = '0.1',
+  date = '2012/10/21',
   description = 'Handling the range of Japanese characters',
 })
 module('luatexja.charrange', package.seeall)
@@ -29,7 +28,8 @@ pow_table[31*ATTR_RANGE] = pow(2, 31)
 --         external    1  2       216, (out of range): 'other'
 
 -- initialize
-local jcr_table_main = {}
+jcr_table_main = {}
+local jcr_table_main = jcr_table_main
 local jcr_cjk = 0; local jcr_noncjk = 1; local ucs_out = 0x110000
 
 for i=0x80 ,0xFF      do jcr_table_main[i]=1 end
@@ -37,11 +37,11 @@ for i=0x100,ucs_out-1 do jcr_table_main[i]=0 end
 
 -- EXT: add characters to a range
 function add_char_range(b,e,ind) -- ind: external range number
-   if not ind or ind<0 or ind>=7*ATTR_RANGE then -- 0 は error にしない（隠し）
+   if not ind or ind<0 or ind>=31*ATTR_RANGE then -- 0 は error にしない（隠し）
       ltjb.package_error('luatexja',
 			 "invalid character range number (" .. ind .. ")",
 			 "A character range number should be in the range 1.."
-                          .. 7+ATTR_RANGE-1 .. ",\n" ..
+                          .. 31*ATTR_RANGE-1 .. ",\n" ..
 			  "ignored.")
       return
    elseif b<0x80 or e>=ucs_out then