[Emacs-diffs] Changes to emacs/lisp/term/x-win.el

[Eli Zaretskii]

Index: emacs/lisp/term/x-win.el
diff -c emacs/lisp/term/x-win.el:1.148 emacs/lisp/term/x-win.el:1.149
*** emacs/lisp/term/x-win.el:1.148      Sun Dec 23 23:51:32 2001
--- emacs/lisp/term/x-win.el    Sun Jan 13 06:44:14 2002
***************
*** 110,115 ****
--- 110,131 ----
                x-invocation-args
                (cdr x-invocation-args))))))
  
+ ;; Handle options that apply to initial frame only
+ (defun x-handle-initial-switch (switch)
+   (let ((aelt (assoc switch command-line-x-option-alist)))
+     (if aelt
+       (let ((param (nth 3 aelt))
+             (value (nth 4 aelt)))
+         (if value
+             (setq initial-frame-alist
+                   (cons (cons param value)
+                         initial-frame-alist))
+           (setq initial-frame-alist
+                 (cons (cons param
+                             (car x-invocation-args))
+                       initial-frame-alist)
+                 x-invocation-args (cdr x-invocation-args)))))))
+ 
  ;; Make -iconic apply only to the initial frame!
  (defun x-handle-iconic (switch)
    (setq initial-frame-alist