From: Richard Stallman <[EMAIL PROTECTED]>
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)
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
