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

diff --git a/src/keyboard.c b/src/keyboard.c
index 50be26c662246eb84cdbb523a629fde062f5bf42..8d7e67cf2941adffcf6c4b25e98a5ca3e8c89a7b 100644 (file)
--- 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);
 }