From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 31 Oct 1995 14:41:51 +0000 (+0000)
Subject: (command-line-1): Say how to invoke menu bar, if not X.
X-Git-Tag: emacs-19.34~2489
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ede3ecef441b136dbf3048353f6697f647ed454;p=emacs.git

(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 d02593d61e0..0917557a497 100644
--- 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.