(command-line-1): Say how to invoke menu bar, if not X.

(command-line): If not X, do enable menu bar.

diff --git a/lisp/startup.el b/lisp/startup.el
index d02593d61e0c28a910dee03e61d04100909b9750..0917557a497ebf737d4eceafd741e4237a8c53af 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -456,8 +456,8 @@ this prefix to create a unique file name.")
   (if (fboundp 'frame-initialize)
       (frame-initialize))
   ;; If frame was created with a menu bar, set menu-bar-mode on.
-  (if (and (eq window-system 'x)
-          (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0))
+  (if (or (not (eq window-system 'x))
+         (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0))
       (menu-bar-mode t))
 
   (run-hooks 'before-init-hook)
@@ -636,6 +636,13 @@ Type \\[info] to enter Info, which you can use to read GNU documentation."
                                        (if where
                                            (key-description where)
                                          "M-x help"))))))
+                  ;; Say how to use the menu bar
+                  ;; if that is not with the mouse.
+                  (if (not (assq 'display (frame-parameters)))
+                      (if (eq (key-binding "\M-`") 'tmm-menubar)
+                          (insert "\n\nType M-` to use the menu bar.")
+                        (insert (substitute-command-keys
+                                 "\n\nType \\[tmm-menubar] to use the menu bar."))))
 
                   ;; Windows and MSDOS (currently) do not count as
                   ;; window systems, but do have mouse support.