diff options
| author | stanton <stanton> | 1999-06-01 18:44:56 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-06-01 18:44:56 (GMT) |
| commit | ed59cfd5b23fac24fd431c863d852ae924803f05 (patch) | |
| tree | a9dc78cbb9443070e8a50f241bc8f63d5bb40661 /unix/tkUnixFont.c | |
| parent | 338621000307f6d3e17bc9f404f9b399251d37da (diff) | |
| download | tk-ed59cfd5b23fac24fd431c863d852ae924803f05.zip tk-ed59cfd5b23fac24fd431c863d852ae924803f05.tar.gz tk-ed59cfd5b23fac24fd431c863d852ae924803f05.tar.bz2 | |
* unix/tkUnixFont.c: Eliminated redundant case folding code.
Diffstat (limited to 'unix/tkUnixFont.c')
| -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(""); |