From be3bfff196b6fbd2caf06e1696e4021f64672c4b Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 16 Nov 1994 01:00:10 +0000 Subject: [PATCH] (access_keymap, store_in_keymap): Use NATNUMP instead of its expansion. --- src/keymap.c | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/keymap.c b/src/keymap.c index d75a10ae13..fc24d1cd3c 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -318,9 +318,7 @@ access_keymap (map, idx, t_ok, noinherit) 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 @@ store_in_keymap (keymap, idx, def) 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; -- GitLab