mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Jan Djärv 2007-07-22 12:13:34 +00:00
parent bb1f0f780d
commit 0389072b37
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2007-07-22 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* startup.el (command-line-x-option-alist): Use x-handle-no-bitmap-icon,
* term/x-win.el (x-handle-no-bitmap-icon): New function.
2007-07-22 Martin Rudalics <rudalics@gmx.at>
* add-log.el (change-log-fill-parenthesized-list): New function.

3
lisp/term/x-win.el
View File

@ -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