From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Jul 1993 18:09:21 +0000 (+0000)
Subject: (define-key-after): Fix typo in previous change.
X-Git-Tag: emacs-19.34~11663
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab375e6cf35c81c03503de616251e078f970e730;p=emacs.git

(define-key-after): Fix typo in previous change.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 6978038b179..5279cf0ea20 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -191,7 +191,7 @@ 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)
+  (if (> (length key) 1)
       (error "multi-event key specified in `define-key-after'"))
   (let ((tail keymap) done inserted
 	(first (aref key 0)))