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

5907b863 · Karl Heuer · 0abbff13 · 5907b863
Commit 5907b863 authored Mar 22, 1994 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

src/keymap.c src/keymap.c +3 -0

No files found.
--- 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));