Re: Possible change to startup.el

[Thien-Thi Nguyen]

   From: Richard Stallman <address@hidden>
   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)