# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784947610 0
# Node ID 9408478469098d9f1f7379b55cca3575c2e045ff
# Parent  cc76b76a1ed1d01d0e4a2c564a7b17feade2eaa5
(access_keymap, store_in_keymap): Use NATNUMP instead of its expansion.

diff -r cc76b76a1ed1 -r 940847846909 src/keymap.c
--- 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;