diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-04-29 21:14:21 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-04-29 21:14:21 (GMT) |
commit | bfc5a0090ff536e09dc97682d33965b26416e8a2 (patch) | |
tree | 44178339b7b438ff3cb04c742e94e3684b5e63dd /tools/uniClass.tcl | |
parent | 9e733498f1466c92a943ac1c7843296e7e2e6d64 (diff) | |
download | tcl-bfc5a0090ff536e09dc97682d33965b26416e8a2.zip tcl-bfc5a0090ff536e09dc97682d33965b26416e8a2.tar.gz tcl-bfc5a0090ff536e09dc97682d33965b26416e8a2.tar.bz2 |
Upgrade everything to Unicode 11 (still in beta, expected in june 2018)
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 9b4819d..8047894 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 TCL_UTF_MAX > 4\n ," + append ranges "\n#if CHRBITS > 16\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 TCL_UTF_MAX > 4\n ," + append chars "\n#if CHRBITS > 16\n ," } append chars [format "0x%x, " $first] incr numchars |