(free_face_fontset): Use FONTSET_FROM_ID.

(syms_of_fontset): Use ASET.

diff --git a/src/ChangeLog b/src/ChangeLog
index a02c3e6..e8335aa 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2008-02-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * fontset.c (free_face_fontset): Use FONTSET_FROM_ID.
+       (syms_of_fontset): Use ASET.
+
        * fns.c (concat): Move side effect outside of macro call.
        (hash_clear): Use ASET.
 

diff --git a/src/fontset.c b/src/fontset.c
index 36ac055..e2d59ed 100644 (file)
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -923,7 +923,7 @@ free_face_fontset (f, face)
 {
   Lisp_Object fontset;
 
-  fontset = AREF (Vfontset_table, face->fontset);
+  fontset = FONTSET_FROM_ID (face->fontset);
   xassert (!NILP (fontset) && ! BASE_FONTSET_P (fontset));
   xassert (f == XFRAME (FONTSET_FRAME (fontset)));
   ASET (Vfontset_table, face->fontset, Qnil);
@@ -2432,7 +2432,7 @@ syms_of_fontset ()
   FONTSET_ID (Vdefault_fontset) = make_number (0);
   FONTSET_NAME (Vdefault_fontset)
     = build_string ("-*-*-*-*-*-*-*-*-*-*-*-*-fontset-default");
-  AREF (Vfontset_table, 0) = Vdefault_fontset;
+  ASET (Vfontset_table, 0, Vdefault_fontset);
   next_fontset_id = 1;
 
   auto_fontset_alist = Qnil;