From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Thien-Thi Nguyen Newsgroups: gmane.emacs.devel Subject: Re: Possible change to startup.el Date: Tue, 22 Mar 2005 23:32:40 +0100 Message-ID: References: Reply-To: ttn@glug.org NNTP-Posting-Host: main.gmane.org X-Trace: sea.gmane.org 1111531559 25325 80.91.229.2 (22 Mar 2005 22:45:59 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 22 Mar 2005 22:45:59 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Mar 22 23:45:58 2005 Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DDs8I-0002wI-7W for ged-emacs-devel@m.gmane.org; Tue, 22 Mar 2005 23:45:54 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DDsPf-000212-P8 for ged-emacs-devel@m.gmane.org; Tue, 22 Mar 2005 18:03:51 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DDsIS-0003ic-MQ for emacs-devel@gnu.org; Tue, 22 Mar 2005 17:56:24 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DDsIO-0003hH-TB for emacs-devel@gnu.org; Tue, 22 Mar 2005 17:56:24 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DDsCZ-0001XG-Cb for emacs-devel@gnu.org; Tue, 22 Mar 2005 17:50:19 -0500 Original-Received: from [151.37.167.182] (helo=surf.glug.org) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DDrqN-0006Pk-Ba; Tue, 22 Mar 2005 17:27:23 -0500 Original-Received: from ttn by surf.glug.org with local (Exim 3.35 #1 (Debian)) id 1DDrvU-0006uo-00; Tue, 22 Mar 2005 23:32:40 +0100 Original-To: rms@gnu.org In-reply-to: (message from Richard Stallman on Tue, 22 Mar 2005 15:44:55 -0500) 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 X-MailScanner-To: ged-emacs-devel@m.gmane.org Xref: news.gmane.org gmane.emacs.devel:35005 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:35005 From: Richard Stallman Date: Tue, 22 Mar 2005 15:44:55 -0500 If you send a patch that does this automatically, so it won't need maintenance, we can consider it. such a patch is appended. it falls back to the original message if `data-directory' is nil for some reason. i took the liberty of using `:weight bold' since these glyphs may be the few recognizable ones for someone completely unfamiliar w/ english. i have in mind that a local expert can at a minimum say "click on XY" (when clickability is added). my only doubt is that backtick may not be a good idea for dumped data. thi _____________________________________________ cvs -f diff -c startup.el Index: startup.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v retrieving revision 1.340 diff -c -r1.340 startup.el *** startup.el 6 Mar 2005 00:48:45 -0000 1.340 --- startup.el 22 Mar 2005 22:11:17 -0000 *************** *** 999,1012 **** ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar fancy-splash-text ! '((:face variable-pitch "You can do basic editing with the menu bar and scroll bar \ using the mouse.\n\n" :face (variable-pitch :weight bold) "Important Help menu items:\n" :face variable-pitch "\ ! Emacs Tutorial\tLearn-by-doing tutorial for using Emacs efficiently ! Emacs FAQ\tFrequently asked questions and answers Read the Emacs Manual\tView the Emacs manual using Info \(Non)Warranty\tGNU Emacs comes with " :face (variable-pitch :slant oblique) --- 999,1028 ---- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar fancy-splash-text ! `((:face variable-pitch "You can do basic editing with the menu bar and scroll bar \ using the mouse.\n\n" :face (variable-pitch :weight bold) "Important Help menu items:\n" :face variable-pitch "\ ! Emacs Tutorial\t" ! :face (variable-pitch :weight bold) ! ,(if (not data-directory) ! "Learn-by-doing tutorial for using Emacs efficiently." ! (let (langs s len (break 0)) ! (dolist (filename (directory-files data-directory)) ! (when (string-match "TUTORIAL.\\([a-z][a-z]\\(_[A-Z]+\\)*$\\)" ! filename) ! (push (match-string 1 filename) langs))) ! (setq s (mapconcat 'identity (sort (cons "en" langs) 'string<) ! ", ") ! len (length s)) ! (while (and (< (setq break (+ 50 break)) len) ! (setq break (string-match ", " s break))) ! (aset s break ?\n) ! (aset s (1+ break) ?\t)) ! s)) ! :face variable-pitch "\n\ Read the Emacs Manual\tView the Emacs manual using Info \(Non)Warranty\tGNU Emacs comes with " :face (variable-pitch :slant oblique)