# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743191761 0
# Node ID 10fd517cb2e99cc47c0ae5a06f827bcbe0a78629
# Parent  b3df9c7072bbacbee0657397449d32acf3c4ef8a
(define-key-after): Fix typo in previous change.

diff -r b3df9c7072bb -r 10fd517cb2e9 lisp/subr.el
--- a/lisp/subr.el	Tue Jul 20 17:57:35 1993 +0000
+++ b/lisp/subr.el	Tue Jul 20 18:09:21 1993 +0000
@@ -191,7 +191,7 @@
 of length 1."
   (or (keymapp keymap)
       (signal 'wrong-type-argument (list 'keymapp keymap)))
-  (if (> (length key) 0)
+  (if (> (length key) 1)
       (error "multi-event key specified in `define-key-after'"))
   (let ((tail keymap) done inserted
 	(first (aref key 0)))