summaryrefslogtreecommitdiffstats
path: root/unix/tkUnixFont.c
diff options
context:
space:
mode:
Diffstat (limited to 'unix/tkUnixFont.c')
-rw-r--r--unix/tkUnixFont.c9
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("");