* src/eval.c (backtrace_p, backtrace_top, backtrace_next): Export them to

.gdbinit.
* src/data.c (pure_write_error): Add `object' argument.
* src/puresize.h (CHECK_IMPURE): Use it.
* src/keyboard.c (safe_run_hooks_error): Improve error message.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/data.c b/src/data.c
index b33d9656d57..fc66cea6497 100644
--- a/src/data.c
+++ b/src/data.c
@@ -100,9 +100,10 @@ wrong_type_argument (register Lisp_Object predicate, register Lisp_Object value)
 }
 
 void
-pure_write_error (void)
+pure_write_error (Lisp_Object obj)
 {
-  error ("Attempt to modify read-only object");
+  Fsignal (Qerror, Fcons (build_string ("Attempt to modify read-only object"),
+                          Fcons (obj, Qnil)));
 }
 
 void