diff options
author | Richard M. Stallman <[email protected]> | 1994-10-06 07:08:03 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-10-06 07:08:03 +0000 |
commit | 0fb53770ced9c9e1f34c318d2bebf0e37e46bcb5 (patch) | |
tree | eaf1de9051da241402407307442d996aade15089 /src/xfns.c | |
parent | 132ad5641e52ab7b30d1546ca51de9604e5e75c9 (diff) |
(x_set_icon_type): Remove period from error message.
(x_icon_type): New function.
Diffstat (limited to 'src/xfns.c')
-rw-r--r-- | src/xfns.c | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/xfns.c b/src/xfns.c index da8ed3826d..562c366458 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -1095,7 +1095,7 @@ x_set_icon_type (f, arg, oldval) if (result) { UNBLOCK_INPUT; - error ("No icon window available."); + error ("No icon window available"); } /* If the window was unmapped (and its icon was mapped), @@ -1110,6 +1110,18 @@ x_set_icon_type (f, arg, oldval) UNBLOCK_INPUT; } +/* Return 1 if frame F wants a bitmap icon. */ + +int +x_icon_type (f) + FRAME_PTR f; +{ + Lisp_Object tem; + + tem = assq_no_quit (Qicon_type, f->param_alist); + return (CONSP (tem) && ! NILP (XCONS (tem)->cdr)); +} + extern Lisp_Object x_new_font (); void |