Commit 07f60146 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(Fkey_description): Fix the usual int/Lisp_Object mixup.

parent b349012b
...@@ -1958,14 +1958,14 @@ spaces are put between sequence elements, etc. */) ...@@ -1958,14 +1958,14 @@ spaces are put between sequence elements, etc. */)
int len = 0; int len = 0;
int i, i_byte; int i, i_byte;
Lisp_Object *args; Lisp_Object *args;
int size = Flength (keys); int size = XINT (Flength (keys));
Lisp_Object list; Lisp_Object list;
Lisp_Object sep = build_string (" "); Lisp_Object sep = build_string (" ");
Lisp_Object key; Lisp_Object key;
int add_meta = 0; int add_meta = 0;
if (!NILP (prefix)) 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. */ /* This has one extra element at the end that we don't pass to Fconcat. */
args = (Lisp_Object *) alloca (size * 4 * sizeof (Lisp_Object)); args = (Lisp_Object *) alloca (size * 4 * sizeof (Lisp_Object));
...@@ -1996,7 +1996,7 @@ spaces are put between sequence elements, etc. */) ...@@ -1996,7 +1996,7 @@ spaces are put between sequence elements, etc. */)
else if (VECTORP (list)) else if (VECTORP (list))
size = XVECTOR (list)->size; size = XVECTOR (list)->size;
else if (CONSP (list)) else if (CONSP (list))
size = Flength (list); size = XINT (Flength (list));
else else
wrong_type_argument (Qarrayp, list); wrong_type_argument (Qarrayp, list);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment