From 1fc02b3c4d5a0cabb712b8e6f8d19730e656a2c2 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 3 Nov 2000 12:27:04 +0000 Subject: [PATCH] (fancy-splash-text, fancy-splash-text): Use a single tab character. (fancy-splash-screens): Set tab-width to 20. --- lisp/ChangeLog | 6 ++++++ lisp/startup.el | 13 +++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 63aafa458b3..34529945615 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2000-11-03 Gerd Moellmann + + * 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 * comint.el (comint-completion-addsuffix): Fix custom type. diff --git a/lisp/startup.el b/lisp/startup.el index 0a0919958f3..40075d82bfe 100644 --- 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) -- 2.39.5