# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1045952400 0
# Node ID b4b6ede28a6f77798d1abb1612b7b092b830f01d
# Parent  eabc4e7986e9f5c4b20d2970f59dc0eb52071c11
(x_face_list_fonts): Fix int/Lisp_Object mixup.

diff -r eabc4e7986e9 -r b4b6ede28a6f src/xfaces.c
--- a/src/xfaces.c	Sat Feb 22 22:19:31 2003 +0000
+++ b/src/xfaces.c	Sat Feb 22 22:20:00 2003 +0000
@@ -2463,7 +2463,7 @@
 #endif
 
   if (nfonts < 0 && CONSP (lfonts))
-    num_fonts = Flength (lfonts);
+    num_fonts = XFASTINT (Flength (lfonts));
   
   /* Make a copy of the font names we got from X, and
      split them into fields.  */