mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 09:20:54 -08:00
Code Issues Projects Releases Wiki Activity

(x_frame_parms): Add elts for visibility and menu-bar-lines.

Browse source 
(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.
This commit is contained in:
Richard M. Stallman 1993-03-11 07:48:36 +00:00
parent 91463d45d0
commit fa8fdbf9a0
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/frame.c
View file

@ -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);