Mercurial > emacs
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 */ |