Mercurial > emacs
changeset 8759:19d9177069c4
(command-line): If initial X frame has a menu bar, mark menu-bar-mode as on.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 15 Sep 1994 20:09:49 +0000 |
| parents | fac1c4722677 |
| children | 14951c0ea4f8 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Thu Sep 15 08:45:46 1994 +0000 +++ b/lisp/startup.el Thu Sep 15 20:09:49 1994 +0000 @@ -313,6 +313,10 @@ (face-initialize)) (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)) + (menu-bar-mode t)) (run-hooks 'before-init-hook)