[Xpert]patch for xc/programs/xedit/lisp/format.c

[ayatu]

Noticed this today when compiling X from CVS and fixed it as best as I
could.
Hope you like it and if not let me learn how to fix it better by telling me.

Diff attached.

Thanks in advance.

-- 
GMX - Die Kommunikationsplattform im Internet.
http://www.gmx.net
Index: format.c
===================================================================
RCS file: /cvs/xc/programs/xedit/lisp/format.c,v
retrieving revision 1.16
diff -u -r1.16 format.c
--- format.c    2002/02/10 02:50:06     1.16
+++ format.c    2002/02/10 18:49:47
@@ -285,6 +285,7 @@
     int test;
     char *ptr;
     FmtArg *argument;
+    unsigned int tmpcmd = 0;
 
     /* initialize */
     test = objects == NULL || code == NULL || num_objects == NULL;
@@ -415,8 +416,10 @@
     if (!test)
        *code = NOERROR;
     arguments->command = *ptr++;
-    if (islower(arguments->command))
-       arguments->command = toupper(arguments->command);
+    if (islower(arguments->command)) {
+        tmpcmd = toupper(arguments->command);
+           arguments->command = tmpcmd;
+    }
     ++arguments->offset;
 
     return (ptr);