Mercurial > emacs
changeset 9957:940847846909
(access_keymap, store_in_keymap): Use NATNUMP instead of its expansion.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 16 Nov 1994 01:00:10 +0000 |
| parents | cc76b76a1ed1 |
| children | 25a7e3557fd3 |
| files | src/keymap.c |
| diffstat | 1 files changed, 2 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keymap.c Wed Nov 16 00:55:11 1994 +0000 +++ b/src/keymap.c Wed Nov 16 01:00:10 1994 +0000 @@ -318,9 +318,7 @@ break; case Lisp_Vector: - if (INTEGERP (idx) - && XINT (idx) >= 0 - && XINT (idx) < XVECTOR (binding)->size) + if (NATNUMP (idx) && XFASTINT (idx) < XVECTOR (binding)->size) { val = XVECTOR (binding)->contents[XINT (idx)]; if (noprefix && CONSP (val) && EQ (XCONS (val)->car, Qkeymap)) @@ -437,8 +435,7 @@ switch (XTYPE (elt)) { case Lisp_Vector: - if (INTEGERP (idx) - && XINT (idx) >= 0 && XINT (idx) < XVECTOR (elt)->size) + if (NATNUMP (idx) && XFASTINT (idx) < XVECTOR (elt)->size) { XVECTOR (elt)->contents[XFASTINT (idx)] = def; return def;