diff options
author | dgp <dgp@users.sourceforge.net> | 2020-04-30 19:24:32 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-04-30 19:24:32 (GMT) |
commit | 48cdeac127371f0e7c02cc834f01e5138ad0a67d (patch) | |
tree | a729bb713645bd670b2f2d182143aff05100c796 /generic | |
parent | f4d01f9405ce74003aa8a22b5322dc8a004f2393 (diff) | |
parent | 0e720e42dbb7507bf45068b77413f95dfc20271d (diff) | |
download | tcl-48cdeac127371f0e7c02cc834f01e5138ad0a67d.zip tcl-48cdeac127371f0e7c02cc834f01e5138ad0a67d.tar.gz tcl-48cdeac127371f0e7c02cc834f01e5138ad0a67d.tar.bz2 |
merge 8.6
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 e1cde17..90e974f 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1651,6 +1651,7 @@ Tcl_UniCharToUpper( ch -= GetDelta(info); } } + /* Clear away extension bits, if any */ return ch & 0x1FFFFF; } @@ -1682,6 +1683,7 @@ Tcl_UniCharToLower( ch += GetDelta(info); } } + /* Clear away extension bits, if any */ return ch & 0x1FFFFF; } @@ -1721,6 +1723,7 @@ Tcl_UniCharToTitle( ch -= GetDelta(info); } } + /* Clear away extension bits, if any */ return ch & 0x1FFFFF; } @@ -1908,6 +1911,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; |