diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-10-07 22:00:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-10-07 22:00:06 +0000 |
| commit | b5585f5c189bc0779936a673281025025103ee12 (patch) | |
| tree | a078924542d820ca85e2812319ee7998f2441467 | |
| parent | 8ea151b23b874bc3802fc228d828cf91b9cf5ffb (diff) | |
| download | emacs-b5585f5c189bc0779936a673281025025103ee12.tar.gz | |
(describe_vector): Use Flength to get length of vector.
| -rw-r--r-- | src/keymap.c | 6 |
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); |