martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(define-key-after): Error if KEY has two elements.

Browse Source
This commit is contained in:
Richard M. Stallman
1993-07-13 04:00:04 +00:00
parent 76202b57cc
commit 626f67f354
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/subr.el
View File

@@ -186,9 +186,13 @@ in KEYMAP as NEWDEF those chars which are defined as OLDDEF in OLDMAP."
This is like `define-key' except that the binding for KEY is placed
just after the binding for the event AFTER, instead of at the beginning
of the map.
The order matters when the keymap is used as a menu."
The order matters when the keymap is used as a menu.
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)
(error "multi-event key specified in `define-key-after'"))
(let ((tail keymap) done inserted
(first (aref key 0)))
(while (and (not done) tail)