diff options
| author | Kim F. Storm | 2006-07-12 13:19:15 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-07-12 13:19:15 +0000 |
| commit | ce5a29a111327b37df9b73dc2a17645138afda7c (patch) | |
| tree | d1ca051cbf3128c29aadf06618546f37d046ee0d /src/keymap.c | |
| parent | 592c0e80abf8f67b287f95e258b2ca76bdbc70d7 (diff) | |
| download | emacs-ce5a29a111327b37df9b73dc2a17645138afda7c.tar.gz emacs-ce5a29a111327b37df9b73dc2a17645138afda7c.zip | |
(Fdefine_key, Flookup_key): Use CHECK_VECTOR_OR_STRING.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/keymap.c b/src/keymap.c index ecc2f7b2944..6f57bd63376 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -1138,8 +1138,7 @@ binding KEY to DEF is added at the front of KEYMAP. */) | |||
| 1138 | GCPRO3 (keymap, key, def); | 1138 | GCPRO3 (keymap, key, def); |
| 1139 | keymap = get_keymap (keymap, 1, 1); | 1139 | keymap = get_keymap (keymap, 1, 1); |
| 1140 | 1140 | ||
| 1141 | if (!VECTORP (key) && !STRINGP (key)) | 1141 | CHECK_VECTOR_OR_STRING (key); |
| 1142 | key = wrong_type_argument (Qarrayp, key); | ||
| 1143 | 1142 | ||
| 1144 | length = XFASTINT (Flength (key)); | 1143 | length = XFASTINT (Flength (key)); |
| 1145 | if (length == 0) | 1144 | if (length == 0) |
| @@ -1249,8 +1248,7 @@ recognize the default bindings, just as `read-key-sequence' does. */) | |||
| 1249 | GCPRO2 (keymap, key); | 1248 | GCPRO2 (keymap, key); |
| 1250 | keymap = get_keymap (keymap, 1, 1); | 1249 | keymap = get_keymap (keymap, 1, 1); |
| 1251 | 1250 | ||
| 1252 | if (!VECTORP (key) && !STRINGP (key)) | 1251 | CHECK_VECTOR_OR_STRING (key); |
| 1253 | key = wrong_type_argument (Qarrayp, key); | ||
| 1254 | 1252 | ||
| 1255 | length = XFASTINT (Flength (key)); | 1253 | length = XFASTINT (Flength (key)); |
| 1256 | if (length == 0) | 1254 | if (length == 0) |