tags 433969 fixed-upstream patch
thanks
This bug has been fixed upstream, here are Changelog entry and patch:
2007-07-22 Jan Djärv <[EMAIL PROTECTED]>
* startup.el (command-line-x-option-alist): Use x-handle-no-bitmap-icon.
* term/x-win.el (x-handle-no-bitmap-icon): New function.
Index: startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.436.2.1
retrieving revision 1.436.2.2
diff -u -r1.436.2.1 -r1.436.2.2
--- startup.el 10 May 2007 16:12:37 -0000 1.436.2.1
+++ startup.el 22 Jul 2007 12:17:16 -0000 1.436.2.2
@@ -144,7 +144,7 @@
("--foreground-color" 1 x-handle-switch foreground-color)
("--background-color" 1 x-handle-switch background-color)
("--mouse-color" 1 x-handle-switch mouse-color)
- ("--no-bitmap-icon" 0 x-handle-switch icon-type nil)
+ ("--no-bitmap-icon" 0 x-handle-no-bitmap-icon)
("--iconic" 0 x-handle-iconic)
("--xrm" 1 x-handle-xrm-switch)
("--cursor-color" 1 x-handle-switch cursor-color)
Index: x-win.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term/x-win.el,v
retrieving revision 1.200
retrieving revision 1.200.2.1
diff -u -r1.200 -r1.200.2.1
--- x-win.el 6 Mar 2007 05:50:48 -0000 1.200
+++ x-win.el 22 Jul 2007 12:17:05 -0000 1.200.2.1
@@ -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
Regards,
Sven
