summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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++;