Mercurial > emacs
diff src/xfns.c @ 833:14748faa4f17
entered into RCS
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Tue, 21 Jul 1992 22:16:39 +0000 |
parents | 1dd126823b36 |
children | 4f88a1b78a46 |
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