(describe_vector): Use Flength to get length of vector.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/keymap.c b/src/keymap.c
index fd98df15d2b..b7cb8486056 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2295,6 +2295,7 @@ describe_vector (vector, elt_prefix, elt_describer,
   Lisp_Object suppress;
   Lisp_Object kludge;
   int first = 1;
+  int size;
   struct gcpro gcpro1, gcpro2, gcpro3;
 
   definition = Qnil;
@@ -2308,7 +2309,10 @@ describe_vector (vector, elt_prefix, elt_describer,
   if (partial)
     suppress = intern ("suppress-keymap");
 
-  for (i = 0; i < XVECTOR (vector)->size; i++)
+  /* This does the right thing for char-tables as well as ordinary vectors.  */
+  size = XFASTINT (Flength (vector));
+
+  for (i = 0; i < size; i++)
     {
       QUIT;
       definition = get_keyelt (XVECTOR (vector)->contents[i], 0);