Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e881d8b2
Commit
e881d8b2
authored
Aug 29, 1996
by
Richard M. Stallman
Browse files
(cmd_error): Add number of kbd macro iterations to the error message.
parent
d4087e06
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
1 deletion
+13
-1
src/keyboard.c
src/keyboard.c
+13
-1
No files found.
src/keyboard.c
View file @
e881d8b2
...
...
@@ -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;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment