Mercurial > emacs
changeset 71836:838fd2b04ce0
(Fdefine_key, Flookup_key): Use CHECK_VECTOR_OR_STRING.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 12 Jul 2006 13:19:15 +0000 |
| parents | 838f4260201e |
| children | b4bcd3aefbe8 |
| files | src/keymap.c |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keymap.c Wed Jul 12 13:19:04 2006 +0000 +++ b/src/keymap.c Wed Jul 12 13:19:15 2006 +0000 @@ -1138,8 +1138,7 @@ GCPRO3 (keymap, key, def); keymap = get_keymap (keymap, 1, 1); - if (!VECTORP (key) && !STRINGP (key)) - key = wrong_type_argument (Qarrayp, key); + CHECK_VECTOR_OR_STRING (key); length = XFASTINT (Flength (key)); if (length == 0) @@ -1249,8 +1248,7 @@ GCPRO2 (keymap, key); keymap = get_keymap (keymap, 1, 1); - if (!VECTORP (key) && !STRINGP (key)) - key = wrong_type_argument (Qarrayp, key); + CHECK_VECTOR_OR_STRING (key); length = XFASTINT (Flength (key)); if (length == 0)