mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(fancy-splash-text): Add a line for ordering

Browse Source 
manuals.  Reverse order of splash screens shown.
(use-fancy-splash-screens-p): Adapt to the text line added.
This commit is contained in:
Gerd Moellmann 2001-02-22 11:18:28 +00:00
parent 754084bb42
commit d7618b6028
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/startup.el
View File

@ -979,30 +979,32 @@ If this is nil, no message will be displayed."
(defvar fancy-splash-text
'((: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
"
)
(: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 ()