diff options
| author | Richard M. Stallman | 1993-07-20 18:09:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-20 18:09:21 +0000 |
| commit | ab375e6cf35c81c03503de616251e078f970e730 (patch) | |
| tree | 6e80efe853c3405254a394deb2dacbbfc6ac16a3 | |
| parent | 32e612806b68fc56568158ad3501fb80c3d418f7 (diff) | |
| download | emacs-ab375e6cf35c81c03503de616251e078f970e730.tar.gz emacs-ab375e6cf35c81c03503de616251e078f970e730.zip | |
(define-key-after): Fix typo in previous change.
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 191 | of length 1." | 191 | of length 1." |
| 192 | (or (keymapp keymap) | 192 | (or (keymapp keymap) |
| 193 | (signal 'wrong-type-argument (list 'keymapp keymap))) | 193 | (signal 'wrong-type-argument (list 'keymapp keymap))) |
| 194 | (if (> (length key) 0) | 194 | (if (> (length key) 1) |
| 195 | (error "multi-event key specified in `define-key-after'")) | 195 | (error "multi-event key specified in `define-key-after'")) |
| 196 | (let ((tail keymap) done inserted | 196 | (let ((tail keymap) done inserted |
| 197 | (first (aref key 0))) | 197 | (first (aref key 0))) |