From 3ede3ecef441b136dbf3048353f6697f647ed454 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 31 Oct 1995 14:41:51 +0000 Subject: [PATCH] (command-line-1): Say how to invoke menu bar, if not X. (command-line): If not X, do enable menu bar. --- lisp/startup.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) 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. -- 2.39.2