diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-10-19 18:41:06 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-10-19 18:41:06 +0000 |
| commit | 0188441d06a72d40eb62d88e0fffa33e973d1de2 (patch) | |
| tree | 3dc77db67b1e59d38daf193811724003672c996e /src/keymap.c | |
| parent | 49fcd3debd7d1728e3c931cef9a86725950bfff9 (diff) | |
| download | emacs-0188441d06a72d40eb62d88e0fffa33e973d1de2.tar.gz | |
* keymap.c (store_in_keymap): Don't forget to QUIT in the
keymap-scanning loop. Don't treat vectors as binding tables if
they're the wrong length.
* keymap.c (store_in_keymap): Don't forget to QUIT in the
keymap-scanning loop. Don't treat vectors as binding tables if
they're the wrong length.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/keymap.c b/src/keymap.c index b2ca9e11e94..a4105aeada1 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -355,6 +355,8 @@ store_in_keymap (keymap, idx, def) switch (XTYPE (elt)) { case Lisp_Vector: + if (XVECTOR (elt)->size != DENSE_TABLE_SIZE) + break; if (XTYPE (idx) == Lisp_Int) { XVECTOR (elt)->contents[XFASTINT (idx)] = def; @@ -380,6 +382,8 @@ store_in_keymap (keymap, idx, def) goto keymap_end; break; } + + QUIT; } keymap_end: |