From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 16 Nov 1994 00:55:11 +0000 (+0000)
Subject: (CHECK_NATNUM): Use NATNUMP instead of its expansion.
X-Git-Tag: emacs-19.34~5899
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40c03e124a39471bfb7c7eef60bbae674c2c8914;p=emacs.git

(CHECK_NATNUM): Use NATNUMP instead of its expansion.
---

diff --git a/src/xfns.c b/src/xfns.c
index 4d41c81b1cc..194b355d3a4 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -717,9 +717,8 @@ x_set_frame_parameters (f, alist)
 	  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);
 	}