Mercurial > emacs
comparison src/xfns.c @ 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 | 982820033564 |
children | 2e1987a4de30 |
comparison
equal
deleted
inserted
replaced
9955:dfb5d7e86733 | 9956:cc76b76a1ed1 |
---|---|
715 register Lisp_Object param_index, old_value; | 715 register Lisp_Object param_index, old_value; |
716 | 716 |
717 param_index = Fget (prop, Qx_frame_parameter); | 717 param_index = Fget (prop, Qx_frame_parameter); |
718 old_value = get_frame_param (f, prop); | 718 old_value = get_frame_param (f, prop); |
719 store_frame_param (f, prop, val); | 719 store_frame_param (f, prop, val); |
720 if (INTEGERP (param_index) | 720 if (NATNUMP (param_index) |
721 && XINT (param_index) >= 0 | 721 && (XFASTINT (param_index) |
722 && (XINT (param_index) | |
723 < sizeof (x_frame_parms)/sizeof (x_frame_parms[0]))) | 722 < sizeof (x_frame_parms)/sizeof (x_frame_parms[0]))) |
724 (*x_frame_parms[XINT (param_index)].setter)(f, val, old_value); | 723 (*x_frame_parms[XINT (param_index)].setter)(f, val, old_value); |
725 } | 724 } |
726 } | 725 } |
727 | 726 |