Generalize common compile-time constants.

[bpt/emacs.git] / src / font.c

diff --git a/src/font.c b/src/font.c
index c70c2ab..ca0ccc1 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -2138,7 +2138,7 @@ static Lisp_Object
 font_vconcat_entity_vectors (Lisp_Object list)
 {
   int nargs = XINT (Flength (list));
-  Lisp_Object *args = alloca (sizeof (Lisp_Object) * nargs);
+  Lisp_Object *args = alloca (word_size * nargs);
   int i;
 
   for (i = 0; i < nargs; i++, list = XCDR (list))