# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 711756999 0
# Node ID 14748faa4f175c6fcee51500a075326e252ca162
# Parent  f40ed8ebb09eae3bb32a16ddc80116a1db1c3b11
entered into RCS

diff -r f40ed8ebb09e -r 14748faa4f17 src/xfns.c
--- a/src/xfns.c	Tue Jul 21 21:11:41 1992 +0000
+++ b/src/xfns.c	Tue Jul 21 22:16:39 1992 +0000
@@ -1041,7 +1041,11 @@
      struct frame *f;
      Lisp_Object arg, oldval;
 {
-  CHECK_STRING (arg, 0);
+  /* If ARG is nil, set the name to the x_id_name.  */
+  if (NILP (arg))
+    arg = build_string (x_id_name);
+  else
+    CHECK_STRING (arg, 0);
 
   /* Don't change the name if it's already ARG.  */
   if (! NILP (Fstring_equal (arg, f->name)))
@@ -1063,7 +1067,7 @@
       BLOCK_INPUT;
       XStoreName (XDISPLAY f->display.x->window_desc,
 		  (char *) XSTRING (arg)->data);
-      XSetIconName (XDISPLAY f->display.x->window_desc,
+      XSetIconName (XDISPLAY f->display.x->window_desc, 
 		    (char *) XSTRING (arg)->data);
       UNBLOCK_INPUT;
 #endif