From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Colin Walters Newsgroups: gmane.emacs.devel Subject: Re: splash screen display when Emacs is given arguments Date: 23 May 2002 19:34:51 -0400 Sender: emacs-devel-admin@gnu.org Message-ID: <1022196891.16292.5052.camel@space-ghost> References: <1022050493.16292.4101.camel@space-ghost> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-uZkSM0g1Tp3EDbv3NR82" X-Trace: main.gmane.org 1022197177 24960 127.0.0.1 (23 May 2002 23:39:37 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Thu, 23 May 2002 23:39:37 +0000 (UTC) Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17B2BF-0006UT-00 for ; Fri, 24 May 2002 01:39:37 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17B2Qr-0000dv-00 for ; Fri, 24 May 2002 01:55:45 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 17B2BM-00040q-00; Thu, 23 May 2002 19:39:44 -0400 Original-Received: from monk.debian.net ([216.185.54.61] helo=monk.verbum.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 17B28k-0003gt-00 for ; Thu, 23 May 2002 19:37:02 -0400 Original-Received: from space-ghost.verbum.private (freedom.cis.ohio-state.edu [164.107.60.183]) (using TLSv1 with cipher EDH-RSA-DES-CBC3-SHA (168/168 bits)) (Client CN "space-ghost.verbum.org", Issuer "monk.verbum.org" (verified OK)) by monk.verbum.org (Postfix (Debian/GNU)) with ESMTP id E775874000BA for ; Thu, 23 May 2002 19:36:56 -0400 (EDT) Original-Received: by space-ghost.verbum.private (Postfix (Debian/GNU), from userid 1000) id 63E9F827300; Thu, 23 May 2002 19:34:52 -0400 (EDT) Original-To: emacs-devel@gnu.org In-Reply-To: X-Mailer: Ximian Evolution 1.0.3 Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:4313 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:4313 --=-uZkSM0g1Tp3EDbv3NR82 Content-Type: text/plain Content-Transfer-Encoding: 7bit [ thank you for not CCing me ] On Thu, 2002-05-23 at 08:39, Robert J. Chassell wrote: > I don't know for sure, but suspect that the rational for the change is > that many installations for novices include a --funcall argument > provided by a system administrator. I don't understand; why wouldn't the sysadmins just frob site-start.el? > --eval '(setq inhibit-startup-message t)' \ How about the following patch, which adds a --nosplash argument? > Incidentally, on using the CVS snapshot of > GNU Emacs 21.2.50.138 (i686-pc-linux-gnu, X toolkit) of 2002-05-22 > without the inhibit-startup-message variable set to t, I found that > the text inserted into the Splash screen by ibuffer is confusing. I agree, it's confusing, and another good reason to revert to the previous behavior :) --=-uZkSM0g1Tp3EDbv3NR82 Content-Disposition: attachment; filename=nosplash.patch Content-Transfer-Encoding: quoted-printable Content-Type: text/x-patch; name=nosplash.patch; charset=ISO-8859-1 Index: man/cmdargs.texi =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/emacs/emacs/man/cmdargs.texi,v retrieving revision 1.61 diff -u -d -r1.61 cmdargs.texi --- man/cmdargs.texi 1 Apr 2002 23:05:22 -0000 1.61 +++ man/cmdargs.texi 23 May 2002 23:32:03 -0000 @@ -215,6 +215,12 @@ and @samp{-batch} have no effect on the loading of this file---this is the only option that blocks it. =20 +@item --nosplash +@opindex --nosplash +@vindex inhibit-startup-message +Do not display a splash screen on startup; this is equivlaent to +setting the variable @code{inhibit-startup-message} to non-nil. + @item -u @var{user} @opindex -u @itemx --user=3D@var{user} Index: lisp/startup.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v retrieving revision 1.296 diff -u -d -r1.296 startup.el --- lisp/startup.el 20 Apr 2002 22:25:55 -0000 1.296 +++ lisp/startup.el 23 May 2002 23:32:03 -0000 @@ -70,6 +70,9 @@ ;; -no-site-file Do not load "site-start.el". (This is the ON= LY ;; --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 @@ -749,24 +752,25 @@ ;; does things. (while (and (not done) args) (let ((longopts '(("--no-init-file") ("--no-site-file") ("--user") - ("--debug-init") ("--iconic") ("--icon-type"))) + ("--debug-init") ("--iconic") ("--icon-type") + ("--nosplash"))) (argi (pop args)) (argval nil)) ;; Handle --OPTION=3DVALUE format. - (if (and (string-match "\\`--" argi) - (string-match "=3D" 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 "=3D" 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 +1507,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)))) @@ -1555,6 +1559,9 @@ (cons argval command-line-args-left))) (funcall (cdr tem) argi)) (funcall (cdr tem) argi))) + + ((string-equal argi "-nosplash") + (setq inhibit-startup-message t)) =20 ((member argi '("-f" ;what the manual claims "-funcall" --=-uZkSM0g1Tp3EDbv3NR82--