From e881d8b2f77b00965579ceacd6912ccb2ad628df Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Aug 1996 04:38:33 +0000 Subject: [PATCH] (cmd_error): Add number of kbd macro iterations to the error message. --- src/keyboard.c | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/src/keyboard.c b/src/keyboard.c index a343e1b59b5..95552296ee9 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -885,6 +885,18 @@ cmd_error (data) 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 @@ cmd_error (data) 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; -- 2.39.2