# HG changeset patch
# User Geoff Voelker <voelker@cs.washington.edu>
# Date 934306379 0
# Node ID 98c67187cd6bdeb0f7cdb2405a24f0a5621c5709
# Parent  17336b4fc6931860f98866c42a2102a0a2af190f
(x_set_icon_type): Support setting frame icons.

diff -r 17336b4fc693 -r 98c67187cd6b src/w32fns.c
--- a/src/w32fns.c	Tue Aug 10 17:30:22 1999 +0000
+++ b/src/w32fns.c	Tue Aug 10 17:32:59 1999 +0000
@@ -2045,46 +2045,28 @@
      struct frame *f;
      Lisp_Object arg, oldval;
 {
-#if 0
-  Lisp_Object tem;
   int result;
 
-  if (STRINGP (arg))
-    {
-      if (STRINGP (oldval) && EQ (Fstring_equal (oldval, arg), Qt))
-	return;
-    }
-  else if (!STRINGP (oldval) && EQ (oldval, Qnil) == EQ (arg, Qnil))
+  if (NILP (arg) && NILP (oldval))
+    return;
+
+  if (STRINGP (arg) && STRINGP (oldval) 
+      && EQ (Fstring_equal (oldval, arg), Qt))
+    return;
+
+  if (SYMBOLP (arg) && SYMBOLP (oldval) && EQ (arg, oldval))
     return;
 
   BLOCK_INPUT;
-  if (NILP (arg))
-    result = x_text_icon (f,
-			  (char *) XSTRING ((!NILP (f->icon_name)
-					     ? f->icon_name
-					     : f->name))->data);
-  else
-    result = x_bitmap_icon (f, arg);
-
+
+  result = x_bitmap_icon (f, arg);
   if (result)
     {
       UNBLOCK_INPUT;
       error ("No icon window available");
     }
 
-  /* If the window was unmapped (and its icon was mapped),
-     the new icon is not mapped, so map the window in its stead.  */
-  if (FRAME_VISIBLE_P (f))
-    {
-#ifdef USE_X_TOOLKIT
-      XtPopup (f->output_data.w32->widget, XtGrabNone);
-#endif
-      XMapWindow (FRAME_W32_DISPLAY (f), FRAME_W32_WINDOW (f));
-    }
-
-  XFlush (FRAME_W32_DISPLAY (f));
   UNBLOCK_INPUT;
-#endif
 }
 
 /* Return non-nil if frame F wants a bitmap icon.  */