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

3f235d5d · Jan Djärv · a0f55a1d · 3f235d5d
Commit 3f235d5d authored Jul 22, 2007 by Jan Djärv
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

lisp/term/x-win.el lisp/term/x-win.el +3 -0

No files found.
--- 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