Mercurial > emacs
comparison src/keymap.c @ 13145:4ce211a90724
(describe_vector): Use Flength to get length of vector.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 07 Oct 1995 22:00:06 +0000 |
| parents | 26c09987d2f3 |
| children | e9007fec678e |
comparison
equal
deleted
inserted
replaced
| 13144:fd14ccddb85a | 13145:4ce211a90724 |
|---|---|
| 2293 Lisp_Object tem2; | 2293 Lisp_Object tem2; |
| 2294 register int i; | 2294 register int i; |
| 2295 Lisp_Object suppress; | 2295 Lisp_Object suppress; |
| 2296 Lisp_Object kludge; | 2296 Lisp_Object kludge; |
| 2297 int first = 1; | 2297 int first = 1; |
| 2298 int size; | |
| 2298 struct gcpro gcpro1, gcpro2, gcpro3; | 2299 struct gcpro gcpro1, gcpro2, gcpro3; |
| 2299 | 2300 |
| 2300 definition = Qnil; | 2301 definition = Qnil; |
| 2301 | 2302 |
| 2302 /* This vector gets used to present single keys to Flookup_key. Since | 2303 /* This vector gets used to present single keys to Flookup_key. Since |
| 2306 GCPRO3 (elt_prefix, definition, kludge); | 2307 GCPRO3 (elt_prefix, definition, kludge); |
| 2307 | 2308 |
| 2308 if (partial) | 2309 if (partial) |
| 2309 suppress = intern ("suppress-keymap"); | 2310 suppress = intern ("suppress-keymap"); |
| 2310 | 2311 |
| 2311 for (i = 0; i < XVECTOR (vector)->size; i++) | 2312 /* This does the right thing for char-tables as well as ordinary vectors. */ |
| 2313 size = XFASTINT (Flength (vector)); | |
| 2314 | |
| 2315 for (i = 0; i < size; i++) | |
| 2312 { | 2316 { |
| 2313 QUIT; | 2317 QUIT; |
| 2314 definition = get_keyelt (XVECTOR (vector)->contents[i], 0); | 2318 definition = get_keyelt (XVECTOR (vector)->contents[i], 0); |
| 2315 | 2319 |
| 2316 if (NILP (definition)) continue; | 2320 if (NILP (definition)) continue; |