Mercurial > emacs

diff lisp/startup.el @ 45532:6d0025248c2b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Colin Walters <walters@gnu.org>
date Mon, 27 May 2002 02:00:54 +0000
parents 19a685f604ee
children 742f54d0aedb
line wrap: on
line diff
--- a/lisp/startup.el	Sun May 26 20:58:40 2002 +0000
+++ b/lisp/startup.el	Mon May 27 02:00:54 2002 +0000
@@ -70,8 +70,8 @@
 ;; -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
+;; -no-splash                 Don't display a splash screen on startup.
+;; --no-splash
 ;; -------------------------
 ;; -u USER                   Load USER's init file instead of the init
 ;; -user USER                file belonging to the user starting Emacs.
@@ -1508,7 +1508,7 @@
 	    ;; and long versions of what's on command-switch-alist.
 	    (longopts
 	     (append '(("--funcall") ("--load") ("--insert") ("--kill")
-		       ("--directory") ("--eval") ("--execute") ("--nosplash")
+		       ("--directory") ("--eval") ("--execute") ("--no-splash")
 		       ("--find-file") ("--visit") ("--file"))
 		     (mapcar (lambda (elt)
 			       (list (concat "-" (car elt))))
@@ -1561,7 +1561,7 @@
 			 (funcall (cdr tem) argi))
 		     (funcall (cdr tem) argi)))
 
-		  ((string-equal argi "-nosplash")
+		  ((string-equal argi "-no-splash")
 		   (setq inhibit-startup-message t))
 
 		  ((member argi '("-f"	;what the manual claims