From 62265f1cbfcb2c1659fd71eca090327e9d43eb43 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Tue, 21 Jul 1992 22:16:39 +0000
Subject: [PATCH] entered into RCS

---
 src/xfns.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/xfns.c b/src/xfns.c
index 5eef329e6ca..bdba50379fc 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1041,7 +1041,11 @@ x_set_name (f, arg, oldval)
      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 @@ x_set_name (f, arg, oldval)
       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
-- 
2.11.4.GIT