# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784947311 0
# Node ID cc76b76a1ed1d01d0e4a2c564a7b17feade2eaa5
# Parent  dfb5d7e867335113b2cf007832c140c9acfd4fd0
(CHECK_NATNUM): Use NATNUMP instead of its expansion.

diff -r dfb5d7e86733 -r cc76b76a1ed1 src/xfns.c
--- a/src/xfns.c	Wed Nov 16 00:52:35 1994 +0000
+++ b/src/xfns.c	Wed Nov 16 00:55:11 1994 +0000
@@ -717,9 +717,8 @@
 	  param_index = Fget (prop, Qx_frame_parameter);
 	  old_value = get_frame_param (f, prop);
 	  store_frame_param (f, prop, val);
- 	  if (INTEGERP (param_index)
-	      && XINT (param_index) >= 0
-	      && (XINT (param_index)
+ 	  if (NATNUMP (param_index)
+	      && (XFASTINT (param_index)
 		  < sizeof (x_frame_parms)/sizeof (x_frame_parms[0])))
 	    (*x_frame_parms[XINT (param_index)].setter)(f, val, old_value);
 	}