diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-05-07 07:42:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-05-07 07:42:03 (GMT) |
| commit | 97b08c9a24dd40233c45c0637be7370972ec7b0c (patch) | |
| tree | 0a4f179c562b1722721777ac589d7b98a8457f3f /generic/tclUtf.c | |
| parent | b97b608974fe24725a6d53807d9b11a3b9c7f401 (diff) | |
| parent | 5500074eff2f8cd05b593f4dcac0aecd23e00b94 (diff) | |
| download | tcl-97b08c9a24dd40233c45c0637be7370972ec7b0c.zip tcl-97b08c9a24dd40233c45c0637be7370972ec7b0c.tar.gz tcl-97b08c9a24dd40233c45c0637be7370972ec7b0c.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclUtf.c')
| -rw-r--r-- | generic/tclUtf.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 1d73a7a..693e210 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1034,8 +1034,8 @@ Tcl_UtfToTitle( lowChar = (((lowChar & 0x3ff) << 10) | (ch & 0x3ff)) + 0x10000; } #endif - /* Special exception for Gregorian characters, which don't have titlecase */ - if ((lowChar < 0x1C90) || (lowChar >= 0x1CC0)) { + /* Special exception for Georgian Asomtavruli chars, no titlecase. */ + if ((unsigned)(lowChar - 0x1C90) >= 0x30) { lowChar = Tcl_UniCharToLower(lowChar); } |