From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 29 Aug 1996 04:38:33 +0000 (+0000)
Subject: (cmd_error): Add number of kbd macro iterations to the error message.
X-Git-Tag: emacs-20.1~3975
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e881d8b2f77b00965579ceacd6912ccb2ad628df;p=emacs.git

(cmd_error): Add number of kbd macro iterations to the error message.
---

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;