# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779659789 0
# Node ID 19d9177069c4caaad37dfcfa016c4a046378b98e
# Parent  fac1c4722677b805c00625dbf3493c7bea0a1326
(command-line): If initial X frame has a menu bar, mark menu-bar-mode as on.

diff -r fac1c4722677 -r 19d9177069c4 lisp/startup.el
--- 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)