diff options
| author | Karl Berry <karl@freefriends.org> | 2015-10-25 22:26:12 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2015-10-25 22:26:12 +0000 |
| commit | b21104f52f6a326c74adaf89be9b55745d4e65ba (patch) | |
| tree | 34821dc6557935976efbcf643c48e7f1d869c3f3 /Master/texmf-dist/source/luatex/luatexja/tool | |
| parent | a3456c69107a97f155fa0b80458580d3aced4175 (diff) | |
luatexja (25oct15)
git-svn-id: svn://tug.org/texlive/trunk@38705 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/luatex/luatexja/tool')
| -rwxr-xr-x | Master/texmf-dist/source/luatex/luatexja/tool/ltj-unicode-ccfix_make2.pl | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/Master/texmf-dist/source/luatex/luatexja/tool/ltj-unicode-ccfix_make2.pl b/Master/texmf-dist/source/luatex/luatexja/tool/ltj-unicode-ccfix_make2.pl index d5db9643eb2..f55962956d3 100755 --- a/Master/texmf-dist/source/luatex/luatexja/tool/ltj-unicode-ccfix_make2.pl +++ b/Master/texmf-dist/source/luatex/luatexja/tool/ltj-unicode-ccfix_make2.pl @@ -74,12 +74,13 @@ __EOT__ print << '__EOT__'; -if tex.getcatcode(0x6F22)==12 then - local tex_catcode = tex.setcatcode - local function set_letter(b,e) +local tex_catcode = tex.setcatcode +local tex_getcc = tex.getcatcode +local function set_letter(b,e) + if tex_getcc(b)~=11 then for i=b,e do tex_catcode('global', i, 11) end end - +end __EOT__ open LineBreak, $ARGV[0] or die "can't read $ARGV[0]"; @@ -95,7 +96,7 @@ while (<LineBreak>) { if (exists $lineBreakClass{$lb}) { if ($lineBreakClass{$lb} == 1) { # ideographs: set whole range to class 1 - print " set_letter(0x$s,0x$e)\n"; + print "set_letter(0x$s,0x$e)\n"; } } } @@ -103,7 +104,4 @@ while (<LineBreak>) { close LineBreak; print << '__EOT__'; - -end - __EOT__ |