Commit db722735 authored by Richard M. Stallman's avatar Richard M. Stallman

(IT_set_frame_parameters): Actually store the frame

parameters in the frame parameters' alist.
parent 5043ddd4
/* MS-DOS specific C utilities. /* MS-DOS specific C utilities.
Copyright (C) 1993, 1994, 1995, 1996 Free Software Foundation, Inc. Copyright (C) 1993, 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
This file is part of GNU Emacs. This file is part of GNU Emacs.
...@@ -956,18 +956,36 @@ IT_set_frame_parameters (f, alist) ...@@ -956,18 +956,36 @@ IT_set_frame_parameters (f, alist)
Lisp_Object alist; Lisp_Object alist;
{ {
Lisp_Object tail; Lisp_Object tail;
int length = XINT (Flength (alist));
int i;
Lisp_Object *parms
= (Lisp_Object *) alloca (length * sizeof (Lisp_Object));
Lisp_Object *values
= (Lisp_Object *) alloca (length * sizeof (Lisp_Object));
int redraw; int redraw;
extern unsigned long load_color (); extern unsigned long load_color ();
redraw = 0; redraw = 0;
/* Extract parm names and values into those vectors. */
i = 0;
for (tail = alist; CONSP (tail); tail = Fcdr (tail)) for (tail = alist; CONSP (tail); tail = Fcdr (tail))
{ {
Lisp_Object elt, prop, val; Lisp_Object elt;
elt = Fcar (tail); elt = Fcar (tail);
prop = Fcar (elt); parms[i] = Fcar (elt);
val = Fcdr (elt); CHECK_SYMBOL (parms[i], 1);
CHECK_SYMBOL (prop, 1); values[i] = Fcdr (elt);
i++;
}
/* Now process them in reverse of specified order. */
for (i--; i >= 0; i--)
{
Lisp_Object prop = parms[i];
Lisp_Object val = values[i];
if (EQ (prop, intern ("foreground-color"))) if (EQ (prop, intern ("foreground-color")))
{ {
...@@ -993,6 +1011,9 @@ IT_set_frame_parameters (f, alist) ...@@ -993,6 +1011,9 @@ IT_set_frame_parameters (f, alist)
} }
else if (EQ (prop, intern ("menu-bar-lines"))) else if (EQ (prop, intern ("menu-bar-lines")))
x_set_menu_bar_lines (f, val, 0); x_set_menu_bar_lines (f, val, 0);
store_frame_param (f, prop, val);
} }
if (redraw) if (redraw)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment