summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-05-06 23:12:06 +0000
committerKarl Berry <karl@freefriends.org>2012-05-06 23:12:06 +0000
commitec4155a8b435806195767c2047ab6b3f9f2a1052 (patch)
treec7c5a7ca784c6239ddb222248150a53843427b63 /Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua
parent3c6cdccdf8a900337b27e6c4099aeea5dbc86dcb (diff)
luatexja 20120506.0
git-svn-id: svn://tug.org/texlive/trunk@26229 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua')
-rw-r--r--Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua12
1 files changed, 8 insertions, 4 deletions
diff --git a/Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua b/Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua
index 8608300357d..6d7f5c32023 100644
--- a/Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua
+++ b/Master/texmf-dist/tex/luatex/luatexja/ltj-charrange.lua
@@ -28,7 +28,7 @@ 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>216 then
+ if not ind or ind<0 or ind>216 then -- 0 は error にしない(隠し)
ltjb.package_error('luatexja',
"invalid character range number (" .. ind .. ")",
{"A character range number should be in the range 1..216,",
@@ -47,9 +47,9 @@ function add_char_range(b,e,ind) -- ind: external range number
end
function char_to_range(c) -- return the (external) range number
- if c<0 or c>0x10FFFF then
+ if not c or c<0 or c>0x10FFFF then
ltjb.package_error('luatexja',
- 'bad character code (' .. c .. ')',
+ 'bad character code (' .. tostring(c) .. ')',
{'A character number must be between 0 and 0x10ffff.',
'So I changed this one to zero.'})
c=0
@@ -80,7 +80,11 @@ end
-- EXT
function toggle_char_range(g, i) -- i: external range number
- if i==0 then return
+ if type(i)~='number' then
+ ltjb.package_error('luatexja',
+ "invalid character range number (" .. tostring(i).. ")",
+ "A character range number must be a number, ignored.")
+ elseif i==0 then return
else
local kc
if i>0 then kc=0 else kc=1; i=-i end