From 07f60146b3399b906f5e7381d8c7320044b79287 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 20 Apr 2004 19:44:26 +0000 Subject: [PATCH] (Fkey_description): Fix the usual int/Lisp_Object mixup. --- src/keymap.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/keymap.c b/src/keymap.c index c9991c1874c..5786235f3f3 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -1958,14 +1958,14 @@ spaces are put between sequence elements, etc. */) int len = 0; int i, i_byte; Lisp_Object *args; - int size = Flength (keys); + int size = XINT (Flength (keys)); Lisp_Object list; Lisp_Object sep = build_string (" "); Lisp_Object key; int add_meta = 0; if (!NILP (prefix)) - size += Flength (prefix); + size += XINT (Flength (prefix)); /* This has one extra element at the end that we don't pass to Fconcat. */ args = (Lisp_Object *) alloca (size * 4 * sizeof (Lisp_Object)); @@ -1996,7 +1996,7 @@ spaces are put between sequence elements, etc. */) else if (VECTORP (list)) size = XVECTOR (list)->size; else if (CONSP (list)) - size = Flength (list); + size = XINT (Flength (list)); else wrong_type_argument (Qarrayp, list); -- 2.39.2