From ab375e6cf35c81c03503de616251e078f970e730 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 Jul 1993 18:09:21 +0000 Subject: [PATCH] (define-key-after): Fix typo in previous change. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.39.5