From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: Splash screen ambiguity Date: Mon, 30 Oct 2006 08:33:32 -0500 Message-ID: References: <20061028.083200.208965629.wl@gnu.org> Reply-To: rms@gnu.org NNTP-Posting-Host: main.gmane.org Content-Type: text/plain; charset=ISO-8859-15 X-Trace: sea.gmane.org 1162215720 11220 80.91.229.2 (30 Oct 2006 13:42:00 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 30 Oct 2006 13:42:00 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Oct 30 14:41:59 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1GeXOW-0005pu-Ip for ged-emacs-devel@m.gmane.org; Mon, 30 Oct 2006 14:41:40 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GeXOV-0003nI-T5 for ged-emacs-devel@m.gmane.org; Mon, 30 Oct 2006 08:41:39 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1GeXGh-0005k1-5S for emacs-devel@gnu.org; Mon, 30 Oct 2006 08:33:35 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1GeXGg-0005jB-B1 for emacs-devel@gnu.org; Mon, 30 Oct 2006 08:33:34 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GeXGf-0005ij-Or for emacs-devel@gnu.org; Mon, 30 Oct 2006 08:33:33 -0500 Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.52) id 1GeXGf-0007kO-OV for emacs-devel@gnu.org; Mon, 30 Oct 2006 08:33:33 -0500 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34) id 1GeXGe-00026i-Vw; Mon, 30 Oct 2006 08:33:33 -0500 Original-To: Werner LEMBERG In-reply-to: <20061028.083200.208965629.wl@gnu.org> (message from Werner LEMBERG on Sat, 28 Oct 2006 08:32:00 +0200 (CEST)) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:61383 Archived-At: Does this give good results? *** startup.el 26 Sep 2006 11:42:20 -0400 1.419 --- startup.el 29 Oct 2006 20:44:23 -0500 *************** *** 1149,1156 **** More Manuals / Ordering Manuals Buying printed manuals from the FSF\n") (:face (variable-pitch :weight bold) "Useful File menu items:\n" ! :face variable-pitch "\ ! Exit Emacs\t\t(Or type Control-x followed by Control-c) Recover Crashed Session\tRecover files you were editing before a crash --- 1149,1164 ---- More Manuals / Ordering Manuals Buying printed manuals from the FSF\n") (:face (variable-pitch :weight bold) "Useful File menu items:\n" ! :face variable-pitch ! "Exit Emacs\t\t(Or type " ! :face default ! "Control-x" ! :face variable-pitch ! " followed by " ! :face default ! "Control-c" ! :face variable-pitch ! ") Recover Crashed Session\tRecover files you were editing before a crash *************** *** 1265,1280 **** :face 'variable-pitch "You can do basic editing with the menu bar and scroll bar \ using the mouse.\n\n") ! (if fancy-splash-outer-buffer ! (fancy-splash-insert ! :face 'variable-pitch ! (substitute-command-keys ! (concat ! "Type \\[recenter] to begin editing" ! (if (equal (buffer-name fancy-splash-outer-buffer) ! "*scratch*") ! ".\n" ! " your file.\n")))))) (defun fancy-splash-tail () "Insert the tail part of the splash screen into the current buffer." --- 1273,1291 ---- :face 'variable-pitch "You can do basic editing with the menu bar and scroll bar \ using the mouse.\n\n") ! (when fancy-splash-outer-buffer ! (fancy-splash-insert ! :face 'variable-pitch ! "Type " ! :face 'default ! (substitute-command-keys ! "\\[recenter]") ! :face 'variable-pitch ! " to begin editing" ! (if (equal (buffer-name fancy-splash-outer-buffer) ! "*scratch*") ! ".\n" ! " your file.\n")))) (defun fancy-splash-tail () "Insert the tail part of the splash screen into the current buffer." *************** *** 1301,1307 **** t) (fancy-splash-insert :face '(variable-pitch :foreground "red") "\n\nIf an Emacs session crashed recently, " ! "type Meta-x recover-session RET\nto recover" " the files you were editing.")))) (defun fancy-splash-screens-1 (buffer) --- 1312,1322 ---- t) (fancy-splash-insert :face '(variable-pitch :foreground "red") "\n\nIf an Emacs session crashed recently, " ! "type " ! :face '(fixed-pitch :foreground "red") ! "Meta-x recover-session RET" ! :face '(variable-pitch :foreground "red") ! "\nto recover" " the files you were editing.")))) (defun fancy-splash-screens-1 (buffer)