(fancy-splash-text, fancy-splash-text): Use a single

tab character.
(fancy-splash-screens): Set tab-width to 20.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 63aafa458b354e43973ccfa61d9b4696d25b1380..3452994561587d2e47a6d621c963d0556bf4491b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-11-03  Gerd Moellmann  <gerd@gnu.org>
+
+       * startup.el (fancy-splash-text, fancy-splash-text): Use a single
+       tab character.
+       (fancy-splash-screens): Set tab-width to 20.
+
 2000-11-03  Dave Love  <fx@gnu.org>
 
        * comint.el (comint-completion-addsuffix): Fix custom type.

diff --git a/lisp/startup.el b/lisp/startup.el
index 0a0919958f3f6cb697a8350f8745a38ab5adde6a..40075d82bfe00b44cd85427f16747240c3cf6af5 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -954,8 +954,8 @@ using the mouse.\n\n"
           :face (variable-pitch :weight bold)
           "Useful Files menu items:\n"
           :face variable-pitch "\
-Exit Emacs             (or type Control-x followed by Control-c)
-Recover Session                recover files you were editing before a crash
+Exit Emacs\t(or type Control-x followed by Control-c)
+Recover Session\trecover files you were editing before a crash
 
 
 "
@@ -966,14 +966,14 @@ using the mouse.\n\n"
           :face (variable-pitch :weight bold)
           "Important Help menu items:\n"
           :face variable-pitch "\
-Emacs Tutorial         Learn-by-doing tutorial for using Emacs efficiently.
-Emacs FAQ              Frequently asked questions and answers
-\(Non)Warranty         GNU Emacs comes with "
+Emacs Tutorial\tLearn-by-doing tutorial for using Emacs efficiently.
+Emacs FAQ\tFrequently asked questions and answers
+\(Non)Warranty\tGNU Emacs comes with "
           :face (variable-pitch :slant oblique)
           "ABSOLUTELY NO WARRANTY\n"
           :face variable-pitch
           "\
-Copying Conditions     Conditions for redistributing and changing Emacs\n"))
+Copying Conditions\tConditions for redistributing and changing Emacs\n"))
   "A list of texts to show in the middle part of splash screens.
 Each element in the list should be a list of strings or pairs
 `:face FACE', like `fancy-splash-insert' accepts them.")
@@ -1103,6 +1103,7 @@ where FACE is a valid face specification, as it can be used with
   "Display fancy splash screens when Emacs starts."
   (setq fancy-splash-help-echo (startup-echo-area-message))
   (switch-to-buffer "GNU Emacs")
+  (setq tab-width 20)
   (let ((old-busy-cursor display-busy-cursor)
        (splash-buffer (current-buffer))
        timer)