diff options
| author | Jim Blandy <[email protected]> | 1992-07-21 22:16:39 +0000 |
|---|---|---|
| committer | Jim Blandy <[email protected]> | 1992-07-21 22:16:39 +0000 |
| commit | 62265f1cbfcb2c1659fd71eca090327e9d43eb43 (patch) | |
| tree | 50472eab1697e5bb0c2c4c5cc20d44ca9a2f5d66 /src/xfns.c | |
| parent | bd1f66a0cb901d77dcf928b9b7464915c48c330f (diff) | |
entered into RCS
Diffstat (limited to 'src/xfns.c')
| -rw-r--r-- | src/xfns.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/xfns.c b/src/xfns.c index 5eef329e6c..bdba50379f 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 |