[Emacs-diffs] Changes to emacs/lisp/startup.el

[Colin Walters]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.297 emacs/lisp/startup.el:1.298
*** emacs/lisp/startup.el:1.297 Sun May 26 16:49:28 2002
--- emacs/lisp/startup.el       Sun May 26 22:00:54 2002
***************
*** 70,77 ****
  ;; -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.
--- 70,77 ----
  ;; -no-site-file             Do not load "site-start.el".  (This is the ONLY
  ;; --no-site-file            way to prevent loading that file.)
  ;; -------------------------
! ;; -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,1514 ****
            ;; and long versions of what's on command-switch-alist.
            (longopts
             (append '(("--funcall") ("--load") ("--insert") ("--kill")
!                      ("--directory") ("--eval") ("--execute") ("--nosplash")
                       ("--find-file") ("--visit") ("--file"))
                     (mapcar (lambda (elt)
                               (list (concat "-" (car elt))))
--- 1508,1514 ----
            ;; and long versions of what's on command-switch-alist.
            (longopts
             (append '(("--funcall") ("--load") ("--insert") ("--kill")
!                      ("--directory") ("--eval") ("--execute") ("--no-splash")
                       ("--find-file") ("--visit") ("--file"))
                     (mapcar (lambda (elt)
                               (list (concat "-" (car elt))))
***************
*** 1561,1567 ****
                         (funcall (cdr tem) argi))
                     (funcall (cdr tem) argi)))
  
!                 ((string-equal argi "-nosplash")
                   (setq inhibit-startup-message t))
  
                  ((member argi '("-f"  ;what the manual claims
--- 1561,1567 ----
                         (funcall (cdr tem) argi))
                     (funcall (cdr tem) argi)))
  
!                 ((string-equal argi "-no-splash")
                   (setq inhibit-startup-message t))
  
                  ((member argi '("-f"  ;what the manual claims