Mercurial > emacs
diff lisp/subr.el @ 4188:10fd517cb2e9
(define-key-after): Fix typo in previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 20 Jul 1993 18:09:21 +0000 |
parents | 5a97f81baf65 |
children | 55182207415d |
line wrap: on
line diff
--- 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)))