From adec392eb2463bd7f44417b7617776b8af1cc7ab Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 5 May 2003 14:36:09 +0000
Subject: [PATCH] (safe_run_hooks_error): Display the error instead of silently
 ignoring it.

---
 src/keyboard.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/keyboard.c b/src/keyboard.c
index 50be26c6622..8d7e67cf294 100644
--- 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);
 }
 
-- 
2.11.4.GIT