summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorstanton <stanton>1999-06-01 18:44:51 (GMT)
committerstanton <stanton>1999-06-01 18:44:51 (GMT)
commit338621000307f6d3e17bc9f404f9b399251d37da (patch)
tree76f9343442bde7e01ee09a058ec848ece43269ec
parentff5bc2feb71adc7c52f0eef7ca96aa3263a4ee51 (diff)
downloadtk-338621000307f6d3e17bc9f404f9b399251d37da.zip
tk-338621000307f6d3e17bc9f404f9b399251d37da.tar.gz
tk-338621000307f6d3e17bc9f404f9b399251d37da.tar.bz2
* generic/tkFont.c: Eliminated use of isupper/tolower in favor of
Unicode variants.
-rw-r--r--generic/tkFont.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tkFont.c b/generic/tkFont.c
index 995fb01..99584af 100644
--- a/generic/tkFont.c
+++ b/generic/tkFont.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkFont.c,v 1.3 1999/04/16 01:51:14 stanton Exp $
+ * RCS: @(#) $Id: tkFont.c,v 1.4 1999/06/01 18:44:51 stanton Exp $
*/
#include "tkPort.h"
@@ -3253,9 +3253,9 @@ TkFontParseXLFD(string, faPtr, xaPtr)
field[0] = src;
for (i = 0; *src != '\0'; src++) {
- if (!(*src & 0x90)
- && isupper(UCHAR(*src))) { /* INTL: 7-bit ISO only. */
- *src = tolower(UCHAR(*src)); /* INTL: 7-bit ISO only. */
+ if (!(*src & 0x80)
+ && Tcl_UniCharIsUpper(UCHAR(*src))) {
+ *src = Tcl_UniCharToLower(UCHAR(*src));
}
if (*src == '-') {
i++;