# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1185106404 0
# Node ID ae5900193a70b82a41da00ad61f6087493469b0f
# Parent  55013a02cac09d675439e0f9078e760f43c5d828
(x-handle-no-bitmap-icon): New function.

diff -r 55013a02cac0 -r ae5900193a70 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Sun Jul 22 12:13:11 2007 +0000
+++ b/lisp/term/x-win.el	Sun Jul 22 12:13:24 2007 +0000
@@ -129,6 +129,9 @@
 			initial-frame-alist)
 		  x-invocation-args (cdr x-invocation-args)))))))
 
+(defun x-handle-no-bitmap-icon (switch)
+  (setq default-frame-alist (cons '(icon-type) default-frame-alist)))
+
 ;; Make -iconic apply only to the initial frame!
 (defun x-handle-iconic (switch)
   (setq initial-frame-alist