* xfaces.c (Finternal_make_lisp_face): Use ASET.

diff --git a/src/ChangeLog b/src/ChangeLog
index 516e1b46961a780cdf429a2978b004d0f70798a8..ae92bc3589da684b61a903cb1315749402eb287d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -2,6 +2,7 @@
 
        * keymap.c (Fkey_description): Move side effect outside of macro call.
 
+       * xfaces.c (Finternal_make_lisp_face):
        * keyboard.c (add_command_key, parse_menu_item): Use ASET.
 
        * fontset.c (free_face_fontset): Use FONTSET_FROM_ID.

diff --git a/src/xfaces.c b/src/xfaces.c
index c00dade631bbb9244bc66e6002ff1dbf060fa704..f980f2d2d1fa8b7284efcc0f6b2d64be0f1f5b11 100644 (file)
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -4101,7 +4101,7 @@ Value is a vector of face attributes.  */)
     {
       global_lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
                                   Qunspecified);
-      AREF (global_lface, 0) = Qface;
+      ASET (global_lface, 0, Qface);
       Vface_new_frame_defaults = Fcons (Fcons (face, global_lface),
                                        Vface_new_frame_defaults);
 
@@ -4123,7 +4123,7 @@ Value is a vector of face attributes.  */)
     }
   else if (f == NULL)
     for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
-      AREF (global_lface, i) = Qunspecified;
+      ASET (global_lface, i, Qunspecified);
 
   /* Add a frame-local definition.  */
   if (f)
@@ -4132,12 +4132,12 @@ Value is a vector of face attributes.  */)
        {
          lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
                                Qunspecified);
-         AREF (lface, 0) = Qface;
+         ASET (lface, 0, Qface);
          f->face_alist = Fcons (Fcons (face, lface), f->face_alist);
        }
       else
        for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
-         AREF (lface, i) = Qunspecified;
+         ASET (lface, i, Qunspecified);
     }
   else
     lface = global_lface;