mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1995-04-29 16:49:41 +00:00
parent 6e3bfbb258
commit a360cae96e
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/startup.el
View File

@ -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