From eb7576cefd89e92d5e7b507184f335f6d41c82f6 Mon Sep 17 00:00:00 2001
From: Geoff Voelker <voelker@cs.washington.edu>
Date: Tue, 10 Aug 1999 17:32:59 +0000
Subject: [PATCH] (x_set_icon_type): Support setting frame icons.

---
 src/w32fns.c | 36 +++++++++---------------------------
 1 file changed, 9 insertions(+), 27 deletions(-)

diff --git a/src/w32fns.c b/src/w32fns.c
index 2b195875ad1..f4c039f7d4e 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -2045,46 +2045,28 @@ x_set_icon_type (f, arg, oldval)
      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.  */
-- 
2.39.5