changeset 33169:4a73f3e3bd29

(fancy-splash-text, fancy-splash-text): Use a single tab character. (fancy-splash-screens): Set tab-width to 20.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 03 Nov 2000 12:24:41 +0000
parents 311d750d69c1
children 74b99e79dc02
files lisp/startup.el
diffstat 1 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Fri Nov 03 11:39:15 2000 +0000
+++ b/lisp/startup.el	Fri Nov 03 12:24:41 2000 +0000
@@ -954,8 +954,8 @@
 	   :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 @@
 	   :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 @@
   "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)