# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 742536004 0
# Node ID 5a97f81baf65a4aab0b7567352505d3b17f228d6
# Parent  643048c8e3078d565039ef0b58dde1c209b910b8
(define-key-after): Error if KEY has two elements.

diff -r 643048c8e307 -r 5a97f81baf65 lisp/subr.el
--- a/lisp/subr.el	Tue Jul 13 03:23:19 1993 +0000
+++ b/lisp/subr.el	Tue Jul 13 04:00:04 1993 +0000
@@ -186,9 +186,13 @@
 This is like `define-key' except that the binding for KEY is placed
 just after the binding for the event AFTER, instead of at the beginning
 of the map.
-The order matters when the keymap is used as a menu."
+The order matters when the keymap is used as a menu.
+KEY must contain just one event type--it must be a string or vector
+of length 1."
   (or (keymapp keymap)
       (signal 'wrong-type-argument (list 'keymapp keymap)))
+  (if (> (length key) 0)
+      (error "multi-event key specified in `define-key-after'"))
   (let ((tail keymap) done inserted
 	(first (aref key 0)))
     (while (and (not done) tail)