# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764379388 0
# Node ID 76bb655df959c80d51a9bf9b9b80ed3d2e3107b4
# Parent  7491cbb3d1a3c28cd6d2137f1ffc4b37c999f99a
(Fdefine_key): Check for non-events in keyvector.

diff -r 7491cbb3d1a3 -r 76bb655df959 src/keymap.c
--- a/src/keymap.c	Tue Mar 22 22:59:01 1994 +0000
+++ b/src/keymap.c	Tue Mar 22 23:36:28 1994 +0000
@@ -616,6 +616,9 @@
 	  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));