* xfaces.c (Finternal_make_lisp_face): Use ASET.

2 files changed, 5 insertions, 4 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 516e1b46961..ae92bc3589d 100644
--- 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 c00dade631b..f980f2d2d1f 100644
--- 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;