Mercurial > emacs
changeset 9956:cc76b76a1ed1
(CHECK_NATNUM): Use NATNUMP instead of its expansion.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 16 Nov 1994 00:55:11 +0000 |
| parents | dfb5d7e86733 |
| children | 940847846909 |
| files | src/xfns.c |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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); }