mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-12 14:30:42 -08:00
Code Issues Projects Releases Wiki Activity

(compute_char_face): Use Fsafe_length.

Browse source
This commit is contained in:
Richard M. Stallman 1995-07-01 22:29:51 +00:00
parent 643f822f0a
commit 60573a9049
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/xfaces.c
View file

@ -895,10 +895,13 @@ compute_char_face (f, w, pos, region_beg, region_end, endptr, limit, mouse)
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 @@ compute_char_face (f, w, pos, region_beg, region_end, endptr, limit, mouse)
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));