From 5907b8633f59de9a3ba1b1ba9f081ca49ed0646f Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 22 Mar 1994 23:36:28 +0000
Subject: [PATCH] (Fdefine_key): Check for non-events in keyvector.

---
 src/keymap.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/keymap.c b/src/keymap.c
index ed84063bcd3..1b2336562f2 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -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));
 
-- 
2.39.5