(Fdefine_key): Check for non-events in keyvector.
This commit is contained in:
parent
0abbff134f
commit
5907b8633f
1 changed files with 3 additions and 0 deletions
|
@ -616,6 +616,9 @@ the front of KEYMAP.")
|
|||
idx++;
|
||||
}
|
||||
|
||||
if (! INTEGERP (c) && ! SYMBOLP (c) && ! CONSP (c))
|
||||
error ("Key sequence contains illegal events");
|
||||
|
||||
if (idx == length)
|
||||
RETURN_UNGCPRO (store_in_keymap (keymap, c, def));
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue