(x_face_list_fonts): Fix int/Lisp_Object mixup.

2003-02-22 22:20:00 +00:00
parent 3499aebffc
commit 2b47daccff
1 changed files with 1 additions and 1 deletions
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -2463,7 +2463,7 @@ x_face_list_fonts (f, pattern, pfonts, nfonts, try_alternatives_p)
 #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.  */