Mercurial > emacs

changeset 9353:30659ed71a1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x_set_icon_type): Remove period from error message. (x_icon_type): New function.
author Richard M. Stallman <rms@gnu.org>
date Thu, 06 Oct 1994 07:08:03 +0000
parents f10a1492ecfa
children 1ce43418547c
files src/xfns.c
diffstat 1 files changed, 13 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/xfns.c	Thu Oct 06 07:05:09 1994 +0000
+++ b/src/xfns.c	Thu Oct 06 07:08:03 1994 +0000
@@ -1095,7 +1095,7 @@
   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 @@
   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