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)); |