Mercurial > emacs

changeset 42710:036b67c8fc3f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-handle-initial-switch): New function.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 13 Jan 2002 11:44:14 +0000
parents 0b6760fd748e
children 3388d70b1a06
files lisp/term/x-win.el
diffstat 1 files changed, 16 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/x-win.el	Sun Jan 13 11:39:09 2002 +0000
+++ b/lisp/term/x-win.el	Sun Jan 13 11:44:14 2002 +0000
@@ -110,6 +110,22 @@
 		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