From fa8fdbf9a0dbfcdfdc3ec4589cc26347c0064c26 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 11 Mar 1993 07:48:36 +0000
Subject: [PATCH] (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.

---
 src/frame.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/frame.c b/src/frame.c
index 7d70b88dc1c..e75278bb7df 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -82,6 +82,7 @@ Lisp_Object Qmodeline;
 Lisp_Object Qname;
 Lisp_Object Qonly;
 Lisp_Object Qunsplittable;
+Lisp_Object Qmenu_bar_lines;
 Lisp_Object Qwidth;
 Lisp_Object Qx;
 
@@ -1065,6 +1066,7 @@ If FRAME is omitted, return information on the currently selected frame.")
 		   : (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 @@ syms_of_frame ()
   staticpro (&Qwidth);
   Qx = intern ("x");
   staticpro (&Qx);
+  Qmenu_bar_lines = intern ("menu-bar-lines");
+  staticpro (&Qmenu_bar_lines);
 
   staticpro (&Vframe_list);