/[emacs]/emacs/lisp/term/x-win.el
ViewVC logotype

Diff of /emacs/lisp/term/x-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.148 by rms, Mon Dec 24 04:51:32 2001 UTC revision 1.149 by eliz, Sun Jan 13 11:44:14 2002 UTC
# Line 110  Line 110 
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

Legend:
Removed from v.1.148  
changed lines
  Added in v.1.149

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26