From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Sep 1994 20:09:49 +0000 (+0000)
Subject: (command-line): If initial X frame has a menu bar, mark menu-bar-mode as on.
X-Git-Tag: emacs-19.34~7095
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1fe0333f4f77f58bf3112484ae39542e1e1ee267;p=emacs.git

(command-line): If initial X frame has a menu bar, mark menu-bar-mode as on.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 6b646eed849..4de390c44a5 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -313,6 +313,10 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
       (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)