diff options
| -rw-r--r-- | doc/ToUpper.3 | 6 | ||||
| -rw-r--r-- | generic/tclUtf.c | 10 |
2 files changed, 3 insertions, 13 deletions
diff --git a/doc/ToUpper.3 b/doc/ToUpper.3 index 1c7a0c2..fd9ddfb 100644 --- a/doc/ToUpper.3 +++ b/doc/ToUpper.3 @@ -78,11 +78,5 @@ turns each character in the string into its lower-case equivalent. turns the first character in the string into its title-case equivalent and all following characters into their lower-case equivalents. -.SH BUGS -.PP -At this time, the case conversions are only defined for the ISO8859-1 -characters. Unicode characters above 0x00ff are not modified by these -routines. - .SH KEYWORDS utf, unicode, toupper, tolower, totitle, case diff --git a/generic/tclUtf.c b/generic/tclUtf.c index a330d11..1876672 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -619,9 +619,7 @@ Tcl_UtfToUniCharDString( } end += 4; while (p < end) { - if (((unsigned)(UCHAR(*p)-0x80)) < 0x20) { - ch = cp1252[UCHAR(*p++)-0x80]; - } else if (Tcl_UtfCharComplete(p, end-p)) { + if (Tcl_UtfCharComplete(p, end-p)) { p += TclUtfToUniChar(p, &ch); } else { ch = UCHAR(*p++); @@ -673,10 +671,8 @@ TclUtfToWCharDString( } end += 4; while (p < end) { - if (((unsigned)(UCHAR(*p)-0x80)) < 0x20) { - ch = cp1252[UCHAR(*p++)-0x80]; - } else if (Tcl_UtfCharComplete(p, end-p)) { - p += TclUtfToWChar(p, &ch); + if (Tcl_UtfCharComplete(p, end-p)) { + p += TclUtfToWChar(p, &ch); } else { ch = UCHAR(*p++); } |