[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/term/x-win.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term/x-win.el |
Date: |
Sun, 13 Jan 2002 06:44:14 -0500 |
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
- [Emacs-diffs] Changes to emacs/lisp/term/x-win.el,
Eli Zaretskii <=