110 |
x-invocation-args |
x-invocation-args |
111 |
(cdr x-invocation-args)))))) |
(cdr x-invocation-args)))))) |
112 |
|
|
113 |
|
;; Handle options that apply to initial frame only |
114 |
|
(defun x-handle-initial-switch (switch) |
115 |
|
(let ((aelt (assoc switch command-line-x-option-alist))) |
116 |
|
(if aelt |
117 |
|
(let ((param (nth 3 aelt)) |
118 |
|
(value (nth 4 aelt))) |
119 |
|
(if value |
120 |
|
(setq initial-frame-alist |
121 |
|
(cons (cons param value) |
122 |
|
initial-frame-alist)) |
123 |
|
(setq initial-frame-alist |
124 |
|
(cons (cons param |
125 |
|
(car x-invocation-args)) |
126 |
|
initial-frame-alist) |
127 |
|
x-invocation-args (cdr x-invocation-args))))))) |
128 |
|
|
129 |
;; Make -iconic apply only to the initial frame! |
;; Make -iconic apply only to the initial frame! |
130 |
(defun x-handle-iconic (switch) |
(defun x-handle-iconic (switch) |
131 |
(setq initial-frame-alist |
(setq initial-frame-alist |