Mercurial > emacs

changeset 2131:468df2d7e371

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Thu, 11 Mar 1993 07:48:36 +0000
parents e5971e883f67
children 0f4b18efebf5
files src/frame.c
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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);