# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731836116 0
# Node ID 468df2d7e371076780bd721322a9491ae218503a
# Parent  e5971e883f674cf16f0a602d2eeba807707f807a
(x_frame_parms): Add elts for visibility and menu-bar-lines.
(enum x_frame_parm): Likewise.
(x_set_menu_bar_lines, x_set_menu_bar_lines_1): New functions.
(x_set_visibility): New function.
(Fx_create_frame): Handle menu-bar-lines parm.
(Fframe_parameters): Report menu-bar-lines parm.
(syms_of_frame): Set up Qmenu_bar_lines.

diff -r e5971e883f67 -r 468df2d7e371 src/frame.c
--- a/src/frame.c	Thu Mar 11 07:45:02 1993 +0000
+++ b/src/frame.c	Thu Mar 11 07:48:36 1993 +0000
@@ -82,6 +82,7 @@
 Lisp_Object Qname;
 Lisp_Object Qonly;
 Lisp_Object Qunsplittable;
+Lisp_Object Qmenu_bar_lines;
 Lisp_Object Qwidth;
 Lisp_Object Qx;
 
@@ -1065,6 +1066,7 @@
 		   : (FRAME_MINIBUF_ONLY_P (f) ? Qonly
                    : FRAME_MINIBUF_WINDOW (f))));
   store_in_alist (&alist, Qunsplittable, (f->no_split ? Qt : Qnil));
+  store_in_alist (&alist, Qmenu_bar_lines, (FRAME_MENU_BAR_LINES (f)));
 
   /* I think this should be done with a hook.  */
 #ifdef HAVE_X_WINDOWS
@@ -1421,6 +1423,8 @@
   staticpro (&Qwidth);
   Qx = intern ("x");
   staticpro (&Qx);
+  Qmenu_bar_lines = intern ("menu-bar-lines");
+  staticpro (&Qmenu_bar_lines);
 
   staticpro (&Vframe_list);