diff options
| -rw-r--r-- | unix/tkUnixFont.c | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/unix/tkUnixFont.c b/unix/tkUnixFont.c index 43312e9..5ededc3 100644 --- a/unix/tkUnixFont.c +++ b/unix/tkUnixFont.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnixFont.c,v 1.6 1999/04/16 01:51:46 stanton Exp $ + * RCS: @(#) $Id: tkUnixFont.c,v 1.7 1999/06/01 18:44:56 stanton Exp $ */ #include "tkUnixInt.h" @@ -2412,16 +2412,11 @@ GetFontAttributes(display, fontStructPtr, faPtr) FontAttributes *faPtr; /* For storing attributes of screen font. */ { unsigned long value; - char *p, *name; + char *name; if ((XGetFontProperty(fontStructPtr, XA_FONT, &value) != False) && (value != 0)) { name = XGetAtomName(display, (Atom) value); - for (p = name; *p != '\0'; p++) { - if (isupper(UCHAR(*p))) { /* INTL: native text */ - *p = tolower(UCHAR(*p)); /* INTL: native text */ - } - } if (TkFontParseXLFD(name, &faPtr->fa, &faPtr->xa) != TCL_OK) { faPtr->fa.family = Tk_GetUid(name); faPtr->xa.foundry = Tk_GetUid(""); |