From 2b47daccff702690b67ce5c8a33fe908079dda75 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 22 Feb 2003 22:20:00 +0000
Subject: [PATCH] (x_face_list_fonts): Fix int/Lisp_Object mixup.

---
 src/xfaces.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/xfaces.c b/src/xfaces.c
index a68a1eacad3..cb6ace62889 100644
--- 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.  */
-- 
2.11.4.GIT