diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-17 16:19:17 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-17 16:19:17 (GMT) |
commit | 50eee151a907e29a58d8201f66988816ae14eae5 (patch) | |
tree | 6c5a46613aee35de67b44ac278cbea0fa261fbdb /tools | |
parent | 4f3c0fa94fcc4ce830c4765499a42261934c48e7 (diff) | |
download | tcl-50eee151a907e29a58d8201f66988816ae14eae5.zip tcl-50eee151a907e29a58d8201f66988816ae14eae5.tar.gz tcl-50eee151a907e29a58d8201f66988816ae14eae5.tar.bz2 |
Unicode 13 has a new range of characters from 0x30000 to 0x3134A, so generate those in the tables too.
Add one reserved stub entry (Backported from 8.6)
Diffstat (limited to 'tools')
-rw-r--r-- | tools/uniParse.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl index 24be687..a451096 100644 --- a/tools/uniParse.tcl +++ b/tools/uniParse.tcl @@ -114,8 +114,8 @@ proc uni::buildTables {data} { set items [split $line \;] scan [lindex $items 0] %x index - if {$index > 0x2FFFF} then { - # Ignore non-BMP characters, as long as Tcl doesn't support them + if {$index > 0x3FFFF} then { + # Ignore characters > plane 3 continue } set index [format %d $index] |