Mercurial > emacs
changeset 15969:a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 29 Aug 1996 04:38:33 +0000 |
| parents | 231e14e38946 |
| children | d54ae2343dff |
| files | src/keyboard.c |
| diffstat | 1 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Thu Aug 29 04:38:05 1996 +0000 +++ b/src/keyboard.c Thu Aug 29 04:38:33 1996 +0000 @@ -885,6 +885,18 @@ Lisp_Object data; { Lisp_Object old_level, old_length; + char macroerror[50]; + + if (!NILP (executing_macro)) + { + if (executing_macro_iterations == 1) + sprintf (macroerror, "After 1 kbd macro iteration: "); + else + sprintf (macroerror, "After %d kbd macro iterations: ", + executing_macro_iterations); + } + else + *macroerror = 0; Vstandard_output = Qt; Vstandard_input = Qt; @@ -897,7 +909,7 @@ old_length = Vprint_length; XSETFASTINT (Vprint_level, 10); XSETFASTINT (Vprint_length, 10); - cmd_error_internal (data, NULL); + cmd_error_internal (data, macroerror); Vprint_level = old_level; Vprint_length = old_length;