62 |
Use \\[name-last-kbd-macro] to give it a permanent name. |
Use \\[name-last-kbd-macro] to give it a permanent name. |
63 |
Non-nil arg (prefix arg) means append to last macro defined; |
Non-nil arg (prefix arg) means append to last macro defined; |
64 |
this begins by re-executing that macro as if you typed it again. |
this begins by re-executing that macro as if you typed it again. |
65 |
If optional second arg, NO-EXEC, is non-nil, do not re-execute last |
If optional second arg, NO-EXEC, is non-nil, do not re-execute last |
66 |
macro before appending to it. */) |
macro before appending to it. */) |
67 |
(append, no_exec) |
(append, no_exec) |
68 |
Lisp_Object append, no_exec; |
Lisp_Object append, no_exec; |
127 |
message ("Appending to kbd macro..."); |
message ("Appending to kbd macro..."); |
128 |
} |
} |
129 |
current_kboard->defining_kbd_macro = Qt; |
current_kboard->defining_kbd_macro = Qt; |
130 |
|
|
131 |
return Qnil; |
return Qnil; |
132 |
} |
} |
133 |
|
|
155 |
counting the definition just completed as the first repetition. |
counting the definition just completed as the first repetition. |
156 |
An argument of zero means repeat until error. |
An argument of zero means repeat until error. |
157 |
|
|
158 |
In Lisp, optional second arg LOOPFUNC may be a function that is called prior to |
In Lisp, optional second arg LOOPFUNC may be a function that is called prior to |
159 |
each iteration of the macro. Iteration stops if LOOPFUNC returns nil. */) |
each iteration of the macro. Iteration stops if LOOPFUNC returns nil. */) |
160 |
(repeat, loopfunc) |
(repeat, loopfunc) |
161 |
Lisp_Object repeat, loopfunc; |
Lisp_Object repeat, loopfunc; |
198 |
if (kb->kbd_macro_ptr - kb->kbd_macro_buffer == kb->kbd_macro_bufsize) |
if (kb->kbd_macro_ptr - kb->kbd_macro_buffer == kb->kbd_macro_bufsize) |
199 |
{ |
{ |
200 |
int ptr_offset, end_offset, nbytes; |
int ptr_offset, end_offset, nbytes; |
201 |
|
|
202 |
ptr_offset = kb->kbd_macro_ptr - kb->kbd_macro_buffer; |
ptr_offset = kb->kbd_macro_ptr - kb->kbd_macro_buffer; |
203 |
end_offset = kb->kbd_macro_end - kb->kbd_macro_buffer; |
end_offset = kb->kbd_macro_end - kb->kbd_macro_buffer; |
204 |
kb->kbd_macro_bufsize *= 2; |
kb->kbd_macro_bufsize *= 2; |
208 |
kb->kbd_macro_ptr = kb->kbd_macro_buffer + ptr_offset; |
kb->kbd_macro_ptr = kb->kbd_macro_buffer + ptr_offset; |
209 |
kb->kbd_macro_end = kb->kbd_macro_buffer + end_offset; |
kb->kbd_macro_end = kb->kbd_macro_buffer + end_offset; |
210 |
} |
} |
211 |
|
|
212 |
*kb->kbd_macro_ptr++ = c; |
*kb->kbd_macro_ptr++ = c; |
213 |
} |
} |
214 |
} |
} |
248 |
A prefix argument serves as a repeat count. Zero means repeat until error. |
A prefix argument serves as a repeat count. Zero means repeat until error. |
249 |
|
|
250 |
To make a macro permanent so you can call it even after |
To make a macro permanent so you can call it even after |
251 |
defining others, use \\[name-last-kbd-macro]. |
defining others, use \\[name-last-kbd-macro]. |
252 |
|
|
253 |
In Lisp, optional second arg LOOPFUNC may be a function that is called prior to |
In Lisp, optional second arg LOOPFUNC may be a function that is called prior to |
254 |
each iteration of the macro. Iteration stops if LOOPFUNC returns nil. */) |
each iteration of the macro. Iteration stops if LOOPFUNC returns nil. */) |
255 |
(prefix, loopfunc) |
(prefix, loopfunc) |
256 |
Lisp_Object prefix, loopfunc; |
Lisp_Object prefix, loopfunc; |
295 |
DEFUN ("execute-kbd-macro", Fexecute_kbd_macro, Sexecute_kbd_macro, 1, 3, 0, |
DEFUN ("execute-kbd-macro", Fexecute_kbd_macro, Sexecute_kbd_macro, 1, 3, 0, |
296 |
doc: /* Execute MACRO as string of editor command characters. |
doc: /* Execute MACRO as string of editor command characters. |
297 |
If MACRO is a symbol, its function definition is used. |
If MACRO is a symbol, its function definition is used. |
298 |
COUNT is a repeat count, or nil for once, or 0 for infinite loop. |
COUNT is a repeat count, or nil for once, or 0 for infinite loop. |
299 |
|
|
300 |
Optional third arg LOOPFUNC may be a function that is called prior to |
Optional third arg LOOPFUNC may be a function that is called prior to |
301 |
each iteration of the macro. Iteration stops if LOOPFUNC returns nil. */) |
each iteration of the macro. Iteration stops if LOOPFUNC returns nil. */) |
302 |
(macro, count, loopfunc) |
(macro, count, loopfunc) |
303 |
Lisp_Object macro, count, loopfunc; |
Lisp_Object macro, count, loopfunc; |