changeset 50817:62632c0ed6ea

(safe_run_hooks_error): Display the error instead of silently ignoring it.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 05 May 2003 14:36:09 +0000
parents b4ee488a1f99
children d3acfb11487e
files src/keyboard.c
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Mon May 05 00:25:11 2003 +0000
+++ b/src/keyboard.c	Mon May 05 14:36:09 2003 +0000
@@ -1988,6 +1988,11 @@
 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);
 }