diff options
author | Gerd Moellmann <[email protected]> | 2001-02-22 11:18:28 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2001-02-22 11:18:28 +0000 |
commit | d7618b6028c0616415b448a25ff7c0a3c602f749 (patch) | |
tree | aea59e7b98ae60a35804f31d106a1ca4bb1d140b | |
parent | 754084bb4231fe33fba8d5405b12f89188d60473 (diff) |
(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.
-rw-r--r-- | lisp/startup.el | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index a759a409db..3f024fc742 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -981,28 +981,30 @@ If this is nil, no message will be displayed." "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 @@ where FACE is a valid face specification, as it can be used with "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 () |