andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove Vparam_value_alist

Browse source 
* src/xfaces.c (Vparam_value_alist):
Remove.  All uses removed.
(Finternal_set_lisp_face_attribute):
Simplify by using AUTO_FRAME_ARG.
This commit is contained in:
Paul Eggert 2019-04-15 20:23:24 -07:00
parent 7a382383ac
commit a6b4c3bbeb
1 changed files with 2 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/xfaces.c
View file

@ -321,11 +321,6 @@ bool face_change;
static bool tty_suppress_bold_inverse_default_colors_p;
/* A list of the form `((x . y))' used to avoid consing in
Finternal_set_lisp_face_attribute. */
static Lisp_Object Vparam_value_alist;
/* The total number of colors currently allocated. */
#ifdef GLYPH_DEBUG
@ -3348,11 +3343,8 @@ FRAME 0 means change the face on all frames, and change the default
else
/* Update the current frame's parameters. */
{
Lisp_Object cons;
cons = XCAR (Vparam_value_alist);
XSETCAR (cons, param);
XSETCDR (cons, value);
Fmodify_frame_parameters (frame, Vparam_value_alist);
AUTO_FRAME_ARG (arg, param, value);
Fmodify_frame_parameters (frame, arg);
}
}
}
@ -6633,8 +6625,6 @@ syms_of_xfaces (void)
/* The name of the function used to compute colors on TTYs. */
DEFSYM (Qtty_color_alist, "tty-color-alist");
Vparam_value_alist = list1 (Fcons (Qnil, Qnil));
staticpro (&Vparam_value_alist);
Vface_alternative_font_family_alist = Qnil;
staticpro (&Vface_alternative_font_family_alist);
Vface_alternative_font_registry_alist = Qnil;