diff lisp/startup.el @ 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.

--- 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 ()