/[emacs]/emacs/src/macros.c
ViewVC logotype

Diff of /emacs/src/macros.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50 by kfstorm, Mon Sep 9 22:33:51 2002 UTC revision 1.51 by lektu, Tue Feb 4 14:03:12 2003 UTC
# Line 62  Use \\[end-kbd-macro] to finish recordin Line 62  Use \\[end-kbd-macro] to finish recordin
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;
# Line 127  macro before appending to it. */) Line 127  macro before appending to it. */)
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    
# Line 155  With numeric arg, repeat macro now that Line 155  With numeric arg, repeat macro now that
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;
# Line 198  store_kbd_macro_char (c) Line 198  store_kbd_macro_char (c)
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;
# Line 208  store_kbd_macro_char (c) Line 208  store_kbd_macro_char (c)
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  }  }
# Line 248  DEFUN ("call-last-kbd-macro", Fcall_last Line 248  DEFUN ("call-last-kbd-macro", Fcall_last
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;
# Line 295  pop_kbd_macro (info) Line 295  pop_kbd_macro (info)
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;

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26