summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua')
-rw-r--r--Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua7
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua b/Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua
index f15a15b18f5..e3478ab8180 100644
--- a/Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua
+++ b/Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua
@@ -28,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
@@ -36,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