Mercurial > emacs
comparison src/keymap.c @ 6473:76bb655df959
(Fdefine_key): Check for non-events in keyvector.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 22 Mar 1994 23:36:28 +0000 |
parents | 13aa19ca4b4f |
children | e7db7f9c1fb4 |
comparison
equal
deleted
inserted
replaced
6472:7491cbb3d1a3 | 6473:76bb655df959 |
---|---|
613 XSETINT (c, XINT (c) & ~meta_bit); | 613 XSETINT (c, XINT (c) & ~meta_bit); |
614 | 614 |
615 metized = 0; | 615 metized = 0; |
616 idx++; | 616 idx++; |
617 } | 617 } |
618 | |
619 if (! INTEGERP (c) && ! SYMBOLP (c) && ! CONSP (c)) | |
620 error ("Key sequence contains illegal events"); | |
618 | 621 |
619 if (idx == length) | 622 if (idx == length) |
620 RETURN_UNGCPRO (store_in_keymap (keymap, c, def)); | 623 RETURN_UNGCPRO (store_in_keymap (keymap, c, def)); |
621 | 624 |
622 cmd = get_keyelt (access_keymap (keymap, c, 0, 1)); | 625 cmd = get_keyelt (access_keymap (keymap, c, 0, 1)); |