Mercurial > hg > xemacs-beta

comparison src/macros.c @ 5126:2a462149bd6a ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 24 Feb 2010 19:04:27 -0600
parents 6f2158fa75ed
children 308d34e9f07d
comparison
equal deleted inserted replaced
5125:b5df3737028a 5126:2a462149bd6a
1 /* Keyboard macros. 1 /* Keyboard macros.
2 Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc. 2 Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc.
3 Copyright (C) 2010 Ben Wing.
3 4
4 This file is part of XEmacs. 5 This file is part of XEmacs.
5 6
6 XEmacs is free software; you can redistribute it and/or modify it 7 XEmacs is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by the 8 under the terms of the GNU General Public License as published by the
179 If we're done, throws to the catch in Fexecute_kbd_macro(). 180 If we're done, throws to the catch in Fexecute_kbd_macro().
180 */ 181 */
181 void 182 void
182 pop_kbd_macro_event (Lisp_Object event) 183 pop_kbd_macro_event (Lisp_Object event)
183 { 184 {
184 if (NILP (Vexecuting_macro)) ABORT (); 185 assert (!NILP (Vexecuting_macro));
185 186
186 if (STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro)) 187 if (STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro))
187 { 188 {
188 if (executing_macro_index < XINT (Flength (Vexecuting_macro))) 189 if (executing_macro_index < XINT (Flength (Vexecuting_macro)))
189 { 190 {