diff options
| author | stanton <stanton@noemail.net> | 1999-06-01 18:44:55 (GMT) |
|---|---|---|
| committer | stanton <stanton@noemail.net> | 1999-06-01 18:44:55 (GMT) |
| commit | 4eb36d70880ba6a16807b6999ae9b83e0dc734b1 (patch) | |
| tree | a9dc78cbb9443070e8a50f241bc8f63d5bb40661 /unix | |
| parent | 0065371cb9fd2826b12666208a980d6a3f19a515 (diff) | |
| download | tk-4eb36d70880ba6a16807b6999ae9b83e0dc734b1.zip tk-4eb36d70880ba6a16807b6999ae9b83e0dc734b1.tar.gz tk-4eb36d70880ba6a16807b6999ae9b83e0dc734b1.tar.bz2 | |
* unix/tkUnixFont.c: Eliminated redundant case folding code.
FossilOrigin-Name: 000bbe880dcf58209d3d9b86fbf33c3ab2b44672
Diffstat (limited to 'unix')
| -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(""); |