From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 22 Mar 1994 23:36:28 +0000 (+0000)
Subject: (Fdefine_key): Check for non-events in keyvector.
X-Git-Tag: emacs-19.34~9379
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5907b8633f59de9a3ba1b1ba9f081ca49ed0646f;p=emacs.git

(Fdefine_key): Check for non-events in keyvector.
---

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