Mercurial > emacs
changeset 36278:8487fd519144
(fancy-splash-text): Add a line for ordering
manuals. Reverse order of splash screens shown.
(use-fancy-splash-screens-p): Adapt to the text line added.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 22 Feb 2001 11:18:28 +0000 |
| parents | ab9c82e64020 |
| children | 1e3dc8692936 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 17 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Thu Feb 22 11:18:03 2001 +0000 +++ b/lisp/startup.el Thu Feb 22 11:18:28 2001 +0000 @@ -981,28 +981,30 @@ "You can do basic editing with the menu bar and scroll bar \ using the mouse.\n\n" :face (variable-pitch :weight bold) - "Useful File menu items:\n" - :face variable-pitch "\ -Exit Emacs\t(or type Control-x followed by Control-c) -Recover Session\trecover files you were editing before a crash - - -" - ) - (: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 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\tConditions for redistributing and changing Emacs\n")) +Copying Conditions\tConditions for redistributing and changing Emacs +Ordering Manuals\tHow to order Emacs manuals from the Free Software Foundation\n") + (: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) + "Useful File menu items:\n" + :face variable-pitch "\ +Exit Emacs\t(Or type Control-x followed by Control-c) +Recover Session\tRecover files you were editing before a crash + + + +" + )) "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.") @@ -1183,7 +1185,7 @@ "splash.xpm" "splash.pbm")))) (image-height (and img (cdr (image-size img)))) (window-height (1- (window-height (selected-window))))) - (> window-height (+ image-height 14))))) + (> window-height (+ image-height 15))))) (defun startup-echo-area-message ()