Mercurial > emacs
changeset 13371:4340d33c2e7a
(command-line-1): Say how to invoke menu bar, if not X.
(command-line): If not X, do enable menu bar.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 31 Oct 1995 14:41:51 +0000 |
| parents | 02fb2571c9ca |
| children | 1652f047ebcf |
| files | lisp/startup.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Tue Oct 31 14:27:13 1995 +0000 +++ b/lisp/startup.el Tue Oct 31 14:41:51 1995 +0000 @@ -456,8 +456,8 @@ (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 @@ (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.