# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1026516108 0
# Node ID 04fc40356d6513c0ca98fefa1e5d67649ba0f9fa
# Parent  081502d6dd980bbf5cc43754395f4cea8c497298
(command-line): Set memory-signal-data.
(fancy-splash-text, normal-splash-screen):
Mention "Read the Emacs Manual" or C-h r.
Rearrange the initial help to put the help cmds on left
and the actions (exit, undo) on the right.  Other small
text clarifications.

diff -r 081502d6dd98 -r 04fc40356d65 lisp/startup.el
--- a/lisp/startup.el	Fri Jul 12 22:57:11 2002 +0000
+++ b/lisp/startup.el	Fri Jul 12 23:21:48 2002 +0000
@@ -1035,6 +1035,12 @@
 	       (setq term (substring term 0 hyphend))
 	     (setq term nil)))))
 
+  ;; Update the out-of-memory error message based on user's key bindings
+  ;; for save-some-buffers.
+  (setq memory-signal-data
+	(list 'error
+	      (substitute-command-keys "Memory exhausted--use \\[save-some-buffers] then exit and restart Emacs")))
+
   ;; Process the remaining args.
   (command-line-1 (cdr command-line-args))
 
@@ -1072,13 +1078,14 @@
 	   :face variable-pitch "\
 Emacs Tutorial\tLearn-by-doing tutorial for using Emacs efficiently
 Emacs FAQ\tFrequently asked questions and answers
+Read the Emacs Manual\tView the Emacs manual using Info
 \(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
-Ordering Manuals\tHow to order Emacs manuals from the Free Software Foundation\n")
+Ordering Manuals\tBuying printed 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"
@@ -1352,10 +1359,11 @@
 Important Help menu items:
 Emacs Tutorial		Learn-by-doing tutorial for using Emacs efficiently.
 Emacs FAQ		Frequently asked questions and answers
+Read the Emacs Manual	View the Emacs manual using Info
 \(Non)Warranty		GNU Emacs comes with ABSOLUTELY NO WARRANTY
 Copying Conditions	Conditions for redistributing and changing Emacs.
 Getting New Versions	How to obtain the latest version of Emacs.
-Ordering Manuals	How to order manuals from the FSF.
+Ordering Manuals	How to order printed manuals from the FSF.
 ")
 	    (insert "\n\n" (emacs-version)
 			    "
@@ -1370,20 +1378,22 @@
 		 (eq (key-binding "\C-x\C-c") 'save-buffers-kill-emacs)
 		 (eq (key-binding "\C-ht") 'help-with-tutorial)
 		 (eq (key-binding "\C-hi") 'info)
+		 (eq (key-binding "\C-hr") 'info-emacs-manual)
 		 (eq (key-binding "\C-h\C-n") 'view-emacs-news))
 	    (insert "
 Get help	   C-h  (Hold down CTRL and press h)
-Undo changes	   C-x u       Exit Emacs		C-x C-c
-Get a tutorial	   C-h t       Use Info to read docs	C-h i
-Ordering manuals   C-h RET")
+Emacs manual	   C-h r
+Emacs tutorial	   C-h t           Undo changes     C-x u
+Buy manuals        C-h C-m         Exit Emacs	    C-x C-c
+Browse manuals     C-h i")
+
 	  (insert (substitute-command-keys
 		   (format "\n
 Get help	   %s
-Undo changes	   \\[advertised-undo]
-Exit Emacs	   \\[save-buffers-kill-emacs]
-Get a tutorial	   \\[help-with-tutorial]
-Use Info to read docs	\\[info]
-Ordering manuals   \\[view-order-manuals]"
+Emacs manual	   \\[info-emacs-manual]
+Emacs tutorial	   \\[help-with-tutorial]   Undo changes   \\[advertised-undo]
+Buy manuals        \\[view-order-manuals]   Exit Emacs	   \\[save-buffers-kill-emacs]
+Browse manuals     \\[info]"
 			   (let ((where (where-is-internal
 					 'help-command nil t)))
 			     (if where