From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 Apr 1995 16:49:41 +0000 (+0000)
Subject: (command-line): Handle -iconic and -icon-type here.
X-Git-Tag: emacs-19.34~4238
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a360cae96ec98f0f4c01eb33656eee6e94e321ff;p=emacs.git

(command-line): Handle -iconic and -icon-type here.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 783fb9c4dfe..70a9427341b 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -327,7 +327,7 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
     ;; does things.
     (while (and (not done) args)
       (let ((longopts '(("--no-init-file") ("--no-site-file") ("--user")
-			("--debug-init")))
+			("--debug-init") ("--iconic") ("--icon-type")))
 	    (argi (car args))
 	    (argval nil))
 	(if (string-match "=" argi)
@@ -361,6 +361,16 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
 	 ((string-equal argi "-debug-init")
 	  (setq init-file-debug t
 		args (cdr args)))
+	 ((string-equal argi "-iconic")
+	  (setq initial-frame-alist
+		(cons '(visibility . icon) initial-frame-alist))
+	  (setq args (cdr args)))
+	 ((or (string-equal argi "-icon-type")
+	      (string-equal argi "-i")
+	      (string-equal argi "-itype"))
+	  (setq default-frame-alist
+		(cons '(icon-type . t) default-frame-alist))
+	  (setq args (cdr args)))
 	 (t (setq done t)))
 	;; Was argval set but not used?
 	(and argval