Mercurial > emacs

changeset 45530:19a685f604ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Use `when', `unless'. (command-line-1): New argument "--nosplash". Handle it. (inhibit-splash-screen): New variable alias for `inhibit-startup-message'.
author Colin Walters <walters@gnu.org>
date Sun, 26 May 2002 20:49:28 +0000
parents 45014630aeb2
children 8873fff421e7
files lisp/startup.el
diffstat 1 files changed, 23 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Sun May 26 20:42:51 2002 +0000
+++ b/lisp/startup.el	Sun May 26 20:49:28 2002 +0000
@@ -70,6 +70,9 @@
 ;; -no-site-file             Do not load "site-start.el".  (This is the ONLY
 ;; --no-site-file            way to prevent loading that file.)
 ;; -------------------------
+;; -nosplash                 Don't display a splash screen on startup.
+;; --nosplash
+;; -------------------------
 ;; -u USER                   Load USER's init file instead of the init
 ;; -user USER                file belonging to the user starting Emacs.
 ;; --user USER
@@ -136,6 +139,8 @@
   :type 'boolean
   :group 'initialization)
 
+(defvaralias 'inhibit-splash-screen 'inhibit-startup-message)
+
 (defcustom inhibit-startup-echo-area-message nil
   "*Non-nil inhibits the initial startup echo area message.
 Setting this variable takes effect
@@ -753,20 +758,20 @@
 	    (argi (pop args))
 	    (argval nil))
 	;; Handle --OPTION=VALUE format.
-	(if (and (string-match "\\`--" argi)
-		 (string-match "=" argi))
-	    (setq argval (substring argi (match-end 0))
-		  argi (substring argi 0 (match-beginning 0))))
-	(or (equal argi "--")
-	    (let ((completion (try-completion argi longopts)))
-	      (if (eq completion t)
-		  (setq argi (substring argi 1))
-		(if (stringp completion)
-		    (let ((elt (assoc completion longopts)))
-		      (or elt
-			  (error "Option `%s' is ambiguous" argi))
-		      (setq argi (substring (car elt) 1)))
-		  (setq argval nil)))))
+	(when (and (string-match "\\`--" argi)
+		   (string-match "=" argi))
+	  (setq argval (substring argi (match-end 0))
+		argi (substring argi 0 (match-beginning 0))))
+	(unless (equal argi "--")
+	  (let ((completion (try-completion argi longopts)))
+	    (if (eq completion t)
+		(setq argi (substring argi 1))
+	      (if (stringp completion)
+		  (let ((elt (assoc completion longopts)))
+		    (or elt
+			(error "Option `%s' is ambiguous" argi))
+		    (setq argi (substring (car elt) 1)))
+		(setq argval nil)))))
 	(cond
 	 ((member argi '("-q" "-no-init-file"))
 	  (setq init-file-user nil))
@@ -1503,7 +1508,7 @@
 	    ;; and long versions of what's on command-switch-alist.
 	    (longopts
 	     (append '(("--funcall") ("--load") ("--insert") ("--kill")
-		       ("--directory") ("--eval") ("--execute")
+		       ("--directory") ("--eval") ("--execute") ("--nosplash")
 		       ("--find-file") ("--visit") ("--file"))
 		     (mapcar (lambda (elt)
 			       (list (concat "-" (car elt))))
@@ -1556,6 +1561,9 @@
 			 (funcall (cdr tem) argi))
 		     (funcall (cdr tem) argi)))
 
+		  ((string-equal argi "-nosplash")
+		   (setq inhibit-startup-message t))
+
 		  ((member argi '("-f"	;what the manual claims
 				  "-funcall"
 				  "-e")) ; what the source used to say