diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-03-04 17:49:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-03-04 17:49:56 +0000 |
| commit | 514f940d63ac8bbb458846e08f417aa14c867543 (patch) | |
| tree | 1e86a42b7a914eb4e469648eb7b2eb7dc2df8c23 /lisp/startup.el | |
| parent | d7e7ecd748c0de17e5d8923a51e7c53d6dce18af (diff) | |
| download | emacs-514f940d63ac8bbb458846e08f417aa14c867543.tar.gz | |
(fancy-splash-text): Clarify text.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 10fadfbfd77..9192222ec88 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1142,13 +1142,13 @@ regardless of the value of this variable." ;; If there is a specific tutorial for the current language ;; environment and it is not English, append its title. (concat - "Emacs Tutorial\tLearn how to use Emacs efficiently" + "Emacs Tutorial\t\tLearn how to use Emacs efficiently" (if (string= en tut) "" (concat " (" title ")")) "\n"))) :face variable-pitch "\ -Emacs FAQ\tFrequently asked questions and answers +Emacs FAQ\t\tFrequently asked questions and answers View Emacs Manual\tView the Emacs manual using Info Absence of Warranty\tGNU Emacs comes with " :face (variable-pitch :slant oblique) @@ -1158,12 +1158,13 @@ Absence of Warranty\tGNU Emacs comes with " Copying Conditions\tConditions for redistributing and changing Emacs Getting New Versions\tHow to obtain the latest version of Emacs More Manuals / Ordering Manuals Buying printed manuals from the FSF\n") - (:face (variable-pitch :weight bold) + (:face variable-pitch "To quit a partially entered command, type " :face default "Control-g" :face variable-pitch - "." + ".\n" + :face (variable-pitch :weight bold) "Useful File menu items:\n" :face variable-pitch "Exit Emacs\t\t(Or type " @@ -1295,8 +1296,7 @@ using the mouse.\n\n") :face 'variable-pitch "Type " :face 'default - (substitute-command-keys - "\\[recenter]") + "Control-l" :face 'variable-pitch " to begin editing" (if (equal (buffer-name fancy-splash-outer-buffer) |