diff options
author | dgp <dgp@users.sourceforge.net> | 2020-04-30 19:25:27 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-04-30 19:25:27 (GMT) |
commit | a8c52ddb7d2b090d94b341ec536a8b9ca85bf2d6 (patch) | |
tree | 84a28eac0665283411a14d2bc4d6ad4cd8362520 /generic | |
parent | 22ab1b1e6c62743b677ce29c5e8ab05593492a64 (diff) | |
parent | 48cdeac127371f0e7c02cc834f01e5138ad0a67d (diff) | |
download | tcl-a8c52ddb7d2b090d94b341ec536a8b9ca85bf2d6.zip tcl-a8c52ddb7d2b090d94b341ec536a8b9ca85bf2d6.tar.gz tcl-a8c52ddb7d2b090d94b341ec536a8b9ca85bf2d6.tar.bz2 |
merge 8.7
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclUtf.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index cc3b080..d0b6643 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1657,6 +1657,7 @@ Tcl_UniCharToUpper( ch -= GetDelta(info); } } + /* Clear away extension bits, if any */ return ch & 0x1FFFFF; } @@ -1688,6 +1689,7 @@ Tcl_UniCharToLower( ch += GetDelta(info); } } + /* Clear away extension bits, if any */ return ch & 0x1FFFFF; } @@ -1727,6 +1729,7 @@ Tcl_UniCharToTitle( ch -= GetDelta(info); } } + /* Clear away extension bits, if any */ return ch & 0x1FFFFF; } @@ -1914,6 +1917,7 @@ Tcl_UniCharIsControl( int ch) /* Unicode character to test. */ { if (UNICODE_OUT_OF_RANGE(ch)) { + /* Clear away extension bits, if any */ ch &= 0x1FFFFF; if ((ch == 0xE0001) || ((ch >= 0xE0020) && (ch <= 0xE007F))) { return 1; |