comparison src/cmds.c @ 9135:551c9e4fa12a

(Fself_insert_command): Use type test macros.
author Karl Heuer <kwzh@gnu.org>
date Tue, 27 Sep 1994 03:08:20 +0000
parents a6be4973b11f
children 84822d6ed3be
comparison
equal deleted inserted replaced
9134:37d46d623ed9 9135:551c9e4fa12a
215 Lisp_Object arg; 215 Lisp_Object arg;
216 { 216 {
217 CHECK_NUMBER (arg, 0); 217 CHECK_NUMBER (arg, 0);
218 218
219 /* Barf if the key that invoked this was not a character. */ 219 /* Barf if the key that invoked this was not a character. */
220 if (XTYPE (last_command_char) != Lisp_Int) 220 if (!INTEGERP (last_command_char))
221 bitch_at_user (); 221 bitch_at_user ();
222 else 222 else
223 while (XINT (arg) > 0) 223 while (XINT (arg) > 0)
224 { 224 {
225 XFASTINT (arg)--; /* Ok since old and new vals both nonneg */ 225 XFASTINT (arg)--; /* Ok since old and new vals both nonneg */