Mercurial > emacs

changeset 833:14748faa4f17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Jim Blandy <jimb@redhat.com>
date Tue, 21 Jul 1992 22:16:39 +0000
parents f40ed8ebb09e
children 2e0cd4e83c2e
files src/xfns.c
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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