Mercurial > emacs

changeset 11620:5e836a7d213d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Handle -iconic and -icon-type here.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 Apr 1995 16:49:41 +0000
parents ff4be652af46
children 710b5ce824c2
files lisp/startup.el
diffstat 1 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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