From: Jan Djärv <jan.h.d@swipnet.se>
Date: Sun, 22 Jul 2007 12:17:05 +0000 (+0000)
Subject: (x-handle-no-bitmap-icon): New function.
X-Git-Tag: emacs-pretest-22.1.90~1228
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f235d5d30e920586915fd621ce50b62f37ffdba;p=emacs.git

(x-handle-no-bitmap-icon): New function.
---

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index e48d97d6d1b..d0489844d76 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -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