if (result)
{
UNBLOCK_INPUT;
- error ("No icon window available.");
+ error ("No icon window available");
}
/* If the window was unmapped (and its icon was mapped),
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