# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1079005212 0
# Node ID d2b1cc2ef7f1e1c5ed574193341151c0abcaee9f
# Parent  4ecedb099c92d5f0ae9df195a9459b8f40160aae
Include "intervals.h".
(fontset_face): Fix comparing of Lisp_Objects.
(free_face_fontset): Fix Lisp_Object/int mixup.
(new_fontset_from_font_name): Likewise.

diff -r 4ecedb099c92 -r d2b1cc2ef7f1 src/fontset.c
--- a/src/fontset.c	Thu Mar 11 11:38:27 2004 +0000
+++ b/src/fontset.c	Thu Mar 11 11:40:12 2004 +0000
@@ -39,6 +39,7 @@
 #include "keyboard.h"
 #include "frame.h"
 #include "dispextern.h"
+#include "intervals.h"
 #include "fontset.h"
 #include "window.h"
 
@@ -674,7 +675,7 @@
     }
 
  try_fallback:
-  if (vec != FONTSET_FALLBACK (fontset))
+  if (! EQ (vec, FONTSET_FALLBACK (fontset)))
     {
       vec = FONTSET_FALLBACK (fontset);
       if (VECTORP (vec))
@@ -827,7 +828,7 @@
     next_fontset_id = face->fontset;
   if (! NILP (FONTSET_DEFAULT (fontset)))
     {
-      int id = FONTSET_ID (FONTSET_DEFAULT (fontset));
+      int id = XINT (FONTSET_ID (FONTSET_DEFAULT (fontset)));
       
       fontset = AREF (Vfontset_table, id);
       xassert (!NILP (fontset) && ! BASE_FONTSET_P (fontset));
@@ -1579,7 +1580,7 @@
   else
     {
       char temp[20];
-      int len = Flength (auto_fontset_alist);
+      int len = XINT (Flength (auto_fontset_alist));
 
       sprintf (temp, "auto%d", len);
       ASET (vec, 13, build_string (temp));