Mercurial > emacs

changeset 12468:395a1d99820b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compute_char_face): Use Fsafe_length.
author Richard M. Stallman <rms@gnu.org>
date Sat, 01 Jul 1995 22:29:51 +0000
parents 01a0910f1987
children bec888e46e6a
files src/xfaces.c
diffstat 1 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/xfaces.c	Sat Jul 01 22:28:16 1995 +0000
+++ b/src/xfaces.c	Sat Jul 01 22:29:51 1995 +0000
@@ -895,10 +895,13 @@
   if (CONSP (prop))
     {
       /* We have a list of faces, merge them in reverse order */
-      Lisp_Object length = Flength (prop);
-      int len = XINT (length);
+      Lisp_Object length;
+      int len;
       Lisp_Object *faces;
 
+      length = Fsafe_length (prop);
+      len = XFASTINT (length);
+
       /* Put them into an array */
       faces = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
       for (j = 0; j < len; j++)
@@ -932,10 +935,12 @@
       if (CONSP (prop))
 	{
 	  /* We have a list of faces, merge them in reverse order */
-	  Lisp_Object length = Flength (prop);
-	  int len = XINT (length);
+	  Lisp_Object length;
+	  int len;
 	  Lisp_Object *faces;
-	  int i;
+
+	  length = Fsafe_length (prop);
+	  len = XFASTINT (length);
 
 	  /* Put them into an array */
 	  faces = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));