diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-02-02 21:13:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-02-02 21:13:03 (GMT) |
| commit | da5f0a7d00189cc96fa27b38edfa994ff3db3f7c (patch) | |
| tree | 4bb33e3480486ac9a1f564c9d448c909aef98507 /tools/uniClass.tcl | |
| parent | c55e690196895fde865b1093ba33f375f8c98dba (diff) | |
| parent | 02b3c85edaf8ff8a0878716a4b426629fceb32ac (diff) | |
| download | tcl-da5f0a7d00189cc96fa27b38edfa994ff3db3f7c.zip tcl-da5f0a7d00189cc96fa27b38edfa994ff3db3f7c.tar.gz tcl-da5f0a7d00189cc96fa27b38edfa994ff3db3f7c.tar.bz2 | |
[Frq 3464401] Support Unicode 6.1
Diffstat (limited to 'tools/uniClass.tcl')
| -rw-r--r-- | tools/uniClass.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/uniClass.tcl b/tools/uniClass.tcl index db5e8c9..32b40e9 100644 --- a/tools/uniClass.tcl +++ b/tools/uniClass.tcl @@ -20,7 +20,7 @@ proc emitRange {first last} { set extranges 1 set numranges 0 set ranges [string trimright $ranges " \n\r\t,"] - append ranges "\n#if MAX_UTF_CHAR > 4\n ," + append ranges "\n#if TCL_UTF_MAX > 4\n ," } append ranges [format "{0x%x, 0x%x}, " \ $first $last] @@ -33,7 +33,7 @@ proc emitRange {first last} { set extchars 1 set numchars 0 set chars [string trimright $chars " \n\r\t,"] - append chars "\n#if MAX_UTF_CHAR > 4\n ," + append chars "\n#if TCL_UTF_MAX > 4\n ," } append chars [format "0x%x, " $first] incr numchars |