mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 04:30:45 -08:00
Code Issues Projects Releases Wiki Activity

* keymap.c (store_in_keymap): Don't forget to QUIT in the

Browse source 
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.
This commit is contained in:
Jim Blandy 1992-10-19 18:41:06 +00:00
parent 49fcd3debd
commit 0188441d06
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/keymap.c
View file

@ -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: