Mercurial > emacs
comparison src/macros.c @ 23434:1dd05eb0443d
(Fexecute_kbd_macro): Set real_this_command.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 12 Oct 1998 20:03:15 +0000 |
| parents | edcf24874ef5 |
| children | 9b722e922325 |
comparison
equal
deleted
inserted
replaced
| 23433:a53274056f20 | 23434:1dd05eb0443d |
|---|---|
| 48 This is not bound at each level, | 48 This is not bound at each level, |
| 49 so after an error, it describes the innermost interrupted macro. | 49 so after an error, it describes the innermost interrupted macro. |
| 50 We use it only as a kind of flag, so no need to protect it. */ | 50 We use it only as a kind of flag, so no need to protect it. */ |
| 51 | 51 |
| 52 Lisp_Object executing_macro; | 52 Lisp_Object executing_macro; |
| 53 | |
| 54 extern Lisp_Object real_this_command; | |
| 53 | 55 |
| 54 Lisp_Object Fexecute_kbd_macro (); | 56 Lisp_Object Fexecute_kbd_macro (); |
| 55 | 57 |
| 56 DEFUN ("start-kbd-macro", Fstart_kbd_macro, Sstart_kbd_macro, 1, 1, "P", | 58 DEFUN ("start-kbd-macro", Fstart_kbd_macro, Sstart_kbd_macro, 1, 1, "P", |
| 57 "Record subsequent keyboard input, defining a keyboard macro.\n\ | 59 "Record subsequent keyboard input, defining a keyboard macro.\n\ |
| 284 while (--repeat | 286 while (--repeat |
| 285 && (STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro))); | 287 && (STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro))); |
| 286 | 288 |
| 287 executing_macro = Qnil; | 289 executing_macro = Qnil; |
| 288 | 290 |
| 291 real_this_command = Vexecuting_macro; | |
| 292 | |
| 289 UNGCPRO; | 293 UNGCPRO; |
| 290 return unbind_to (pdlcount, Qnil); | 294 return unbind_to (pdlcount, Qnil); |
| 291 } | 295 } |
| 292 | 296 |
| 293 void | 297 void |