changeset 49914:b4b6ede28a6f

(x_face_list_fonts): Fix int/Lisp_Object mixup.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 22 Feb 2003 22:20:00 +0000
parents eabc4e7986e9
children 95557d4395b0
files src/xfaces.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.  */