(safe_run_hooks_error): Display the error instead of silently ignoring it.

adec392e · Stefan Monnier · 375d5635 · adec392e
Commit adec392e authored May 05, 2003 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

src/keyboard.c src/keyboard.c +5 -0

No files found.
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1988,6 +1988,11 @@ static Lisp_Object
 safe_run_hooks_error (data)
     Lisp_Object data;
 {
+  Lisp_Object args[3];
+  args[0] = build_string ("Error in %s: %s");
+  args[1] = Vinhibit_quit;
+  args[2] = data;
+  Fmessage (3, args);
  return Fset (Vinhibit_quit, Qnil);
 }