comparison src/macros.c @ 5118:e0db3c197671 ben-lisp-object

merge up to latest default branch, doesn't compile yet
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:18:49 -0600
parents 8f1ee2d15784
children 6f2158fa75ed
comparison
equal deleted inserted replaced
5117:3742ea8250b5 5118:e0db3c197671
195 } 195 }
196 else if (!EQ (Vexecuting_macro, Qt)) /* Some things replace the macro 196 else if (!EQ (Vexecuting_macro, Qt)) /* Some things replace the macro
197 with Qt to force an early exit. */ 197 with Qt to force an early exit. */
198 signal_error (Qinvalid_state, "junk in executing-macro", Qunbound); 198 signal_error (Qinvalid_state, "junk in executing-macro", Qunbound);
199 199
200 Fthrow (Qexecute_kbd_macro, Qt); 200 throw_or_bomb_out (Qexecute_kbd_macro, Qt, 0, Qnil, Qnil);
201 } 201 }
202 202
203 203
204 /* Declare that all chars stored so far in the kbd macro being defined 204 /* Declare that all chars stored so far in the kbd macro being defined
205 really belong to it. This is done in between editor commands. */ 205 really belong to it. This is done in between editor commands. */