changeset 91671:7d8392863f85

* xfaces.c (Finternal_make_lisp_face): Use ASET.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 08 Feb 2008 16:24:46 +0000
parents a06d59678f5a
children e78323082141
files src/ChangeLog src/xfaces.c
diffstat 2 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Fri Feb 08 16:23:19 2008 +0000
+++ b/src/ChangeLog	Fri Feb 08 16:24:46 2008 +0000
@@ -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.
--- a/src/xfaces.c	Fri Feb 08 16:23:19 2008 +0000
+++ b/src/xfaces.c	Fri Feb 08 16:24:46 2008 +0000
@@ -4101,7 +4101,7 @@
     {
       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 @@
     }
   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 @@
 	{
 	  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;