comparison src/macros.c @ 9314:2c681685646b

(Fend_kbd_macro, Fexecute_kbd_macro): Don't use XFASTINT as an lvalue.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 16:06:40 +0000
parents 9ba3f17d6631
children e00a48bb7ad4
comparison
equal deleted inserted replaced
9313:ed68c3822e4b 9314:2c681685646b
96 { 96 {
97 if (!defining_kbd_macro) 97 if (!defining_kbd_macro)
98 error ("Not defining kbd macro."); 98 error ("Not defining kbd macro.");
99 99
100 if (NILP (arg)) 100 if (NILP (arg))
101 XFASTINT (arg) = 1; 101 XSETFASTINT (arg, 1);
102 else 102 else
103 CHECK_NUMBER (arg, 0); 103 CHECK_NUMBER (arg, 0);
104 104
105 if (defining_kbd_macro) 105 if (defining_kbd_macro)
106 { 106 {
203 203
204 final = indirect_function (macro); 204 final = indirect_function (macro);
205 if (!STRINGP (final) && !VECTORP (final)) 205 if (!STRINGP (final) && !VECTORP (final))
206 error ("Keyboard macros must be strings or vectors."); 206 error ("Keyboard macros must be strings or vectors.");
207 207
208 XFASTINT (tem) = executing_macro_index; 208 XSETFASTINT (tem, executing_macro_index);
209 tem = Fcons (Vexecuting_macro, tem); 209 tem = Fcons (Vexecuting_macro, tem);
210 record_unwind_protect (pop_kbd_macro, tem); 210 record_unwind_protect (pop_kbd_macro, tem);
211 211
212 GCPRO1 (final); 212 GCPRO1 (final);
213 do 213 do