X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/a0b5606ec769968b10c765f8ff50f312d691ef62..3e1fc7fbd10bdf5fc2d4e0c6fdb21c583d445602:/src/macros.c diff --git a/src/macros.c b/src/macros.c index 0c11efcdc9..d0cf3c2c58 100644 --- a/src/macros.c +++ b/src/macros.c @@ -1,6 +1,6 @@ /* Keyboard macros. -Copyright (C) 1985-1986, 1993, 2000-2013 Free Software Foundation, Inc. +Copyright (C) 1985-1986, 1993, 2000-2014 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -55,7 +55,7 @@ Use \\[name-last-kbd-macro] to give it a permanent name. Non-nil arg (prefix arg) means append to last macro defined; this begins by re-executing that macro as if you typed it again. If optional second arg, NO-EXEC, is non-nil, do not re-execute last -macro before appending to it. */) +macro before appending to it. */) (Lisp_Object append, Lisp_Object no_exec) { if (!NILP (KVAR (current_kboard, defining_kbd_macro))) @@ -66,7 +66,7 @@ macro before appending to it. */) current_kboard->kbd_macro_buffer = xmalloc (30 * word_size); current_kboard->kbd_macro_bufsize = 30; } - update_mode_lines++; + update_mode_lines = 19; if (NILP (append)) { if (current_kboard->kbd_macro_bufsize > 200) @@ -138,7 +138,7 @@ void end_kbd_macro (void) { kset_defining_kbd_macro (current_kboard, Qnil); - update_mode_lines++; + update_mode_lines = 20; kset_last_kbd_macro (current_kboard, make_event_array ((current_kboard->kbd_macro_end @@ -292,7 +292,8 @@ pop_kbd_macro (Lisp_Object info) DEFUN ("execute-kbd-macro", Fexecute_kbd_macro, Sexecute_kbd_macro, 1, 3, 0, doc: /* Execute MACRO as string of editor command characters. -If MACRO is a symbol, its function definition is used. +MACRO can also be a vector of keyboard events. If MACRO is a symbol, +its function definition is used. COUNT is a repeat count, or nil for once, or 0 for infinite loop. Optional third arg LOOPFUNC may be a function that is called prior to