(x_set_icon_type): Remove period from error message.
(x_icon_type): New function.
This commit is contained in:
parent
132ad5641e
commit
0fb53770ce
1 changed files with 13 additions and 1 deletions
14
src/xfns.c
14
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
|
||||
|
|
Loading…
Add table
Reference in a new issue