# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799174181 0
# Node ID 5e836a7d213dfb6b4abcf6e38d908321e2829787
# Parent  ff4be652af46ec4884ad3ed90eb7653c6cf1151b
(command-line): Handle -iconic and -icon-type here.

diff -r ff4be652af46 -r 5e836a7d213d lisp/startup.el
--- a/lisp/startup.el	Sat Apr 29 16:47:57 1995 +0000
+++ b/lisp/startup.el	Sat Apr 29 16:49:41 1995 +0000
@@ -327,7 +327,7 @@
     ;; 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 @@
 	 ((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