From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 5 May 2003 14:36:09 +0000 (+0000)
Subject: (safe_run_hooks_error): Display the error instead of silently ignoring it.
X-Git-Tag: ttn-vms-21-2-B4~10320
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=adec392eb2463bd7f44417b7617776b8af1cc7ab;p=emacs.git

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

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);
 }