# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 788500862 0
# Node ID f4c81ad4471919f0e09f8b632c5ceafc575c05c4
# Parent  d20db86b0c0cb25640ca54e34d88754d2d6a22c4
(command-line-1): Split startup msg into two parts.
Add something about C-mouse-3 when on a window system.

(command-line-1): If help-command has no key binding,
say `M-x help', not `M-x help-command'.

diff -r d20db86b0c0c -r f4c81ad44719 lisp/startup.el
--- a/lisp/startup.el	Tue Dec 27 03:49:57 1994 +0000
+++ b/lisp/startup.el	Tue Dec 27 04:01:02 1994 +0000
@@ -513,25 +513,41 @@
 		   (if (and (eq (key-binding "\C-h") 'help-command)
 			    (eq (key-binding "\C-xu") 'advertised-undo)
 			    (eq (key-binding "\C-x\C-c") 'save-buffers-kill-emacs)
-			    (eq (key-binding "\C-h\C-c") 'describe-copying)
-			    (eq (key-binding "\C-h\C-d") 'describe-distribution)
-			    (eq (key-binding "\C-h\C-w") 'describe-no-warranty)
-			    (eq (key-binding "\C-ht") 'help-with-tutorial))
+			    (eq (key-binding "\C-ht") 'help-with-tutorial)
+			    (eq (key-binding "\C-hi") 'info))
 		       (insert 
        "Type C-h for help; C-x u to undo changes.  (`C-' means use CTRL key.)
 To kill the Emacs job, type C-x C-c.
 Type C-h t for a tutorial on using Emacs.
-Type C-h i to enter Info, which you can use to read GNU documentation.
+Type C-h i to enter Info, which you can use to read GNU documentation.")
+		     (insert (substitute-command-keys
+			      (format "Type %s for help; \\[advertised-undo] to undo changes.  (`C-' means use CTRL key.)
+To kill the Emacs job, type \\[save-buffers-kill-emacs].
+Type \\[help-with-tutorial] for a tutorial on using Emacs.
+Type \\[info] to enter Info, which you can use to read GNU documentation."
+				      (let ((where (where-is-internal
+						    'help-command nil t)))
+					(if where
+					    (key-description where)
+					  "M-x help"))))))
 
+		   ;; Windows and MSDOS (currently) do not count as
+		   ;; window systems, but do have mouse support.
+		   (if (or (memq (system-type '(msdos windowsnt)))
+			   window-system)
+		       (insert "
+C-mouse-3 (third mouse button, with Control) gets a mode-specific menu."))
+		   (insert "\n")
+		   (if (and (eq (key-binding "\C-h\C-c") 'describe-copying)
+			    (eq (key-binding "\C-h\C-d") 'describe-distribution)
+			    (eq (key-binding "\C-h\C-w") 'describe-no-warranty))
+		       (insert 
+			"
 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.
 You may give out copies of Emacs; type C-h C-c to see the conditions.
 Type C-h C-d for information on getting the latest version.")
 		     (insert (substitute-command-keys
-       "Type \\[help-command] for help; \\[advertised-undo] to undo changes.  (`C-' means use CTRL key.)
-To kill the Emacs job, type \\[save-buffers-kill-emacs].
-Type \\[help-with-tutorial] for a tutorial on using Emacs.
-Type \\[info] to enter Info, which you can use to read GNU documentation.
-
+			      "
 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details.
 You may give out copies of Emacs; type \\[describe-copying] to see the conditions.
 Type \\[describe-distribution] for information on getting the latest version.")))