emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master a6b4c3b: Remove Vparam_value_alist


From: Paul Eggert
Subject: [Emacs-diffs] master a6b4c3b: Remove Vparam_value_alist
Date: Mon, 15 Apr 2019 23:24:23 -0400 (EDT)

branch: master
commit a6b4c3bbeb6383c554e03a65fbdb7ee5994abdf7
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Remove Vparam_value_alist
    
    * src/xfaces.c (Vparam_value_alist):
    Remove.  All uses removed.
    (Finternal_set_lisp_face_attribute):
    Simplify by using AUTO_FRAME_ARG.
---
 src/xfaces.c | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/src/xfaces.c b/src/xfaces.c
index c6723eb..13c979d 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -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;



reply via email to

[Prev in Thread] Current Thread [Next in Thread]