Mercurial > emacs

changeset 55006:5429150a04f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fkey_description): Fix the usual int/Lisp_Object mixup.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 20 Apr 2004 19:44:26 +0000
parents 992e27c1be23
children c4901d9dd86a
files src/keymap.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/keymap.c	Tue Apr 20 16:49:26 2004 +0000
+++ b/src/keymap.c	Tue Apr 20 19:44:26 2004 +0000
@@ -1958,14 +1958,14 @@
   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 @@
   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);