diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-06-03 11:18:18 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-06-03 11:18:18 -0400 |
commit | a8a7c5f651cd9c3d354a4cb4938e5289d4cbbe4b (patch) | |
tree | cf9664003563a682554c9f6826ac967d92e9b012 /src/puresize.h | |
parent | 2f23b3ab02d48e972fbce7f4a38527e07c651aa0 (diff) | |
download | emacs-a8a7c5f651cd9c3d354a4cb4938e5289d4cbbe4b.tar.gz |
* 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.
Diffstat (limited to 'src/puresize.h')
-rw-r--r-- | src/puresize.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/puresize.h b/src/puresize.h index 2f717571c7c..25a11aafbcc 100644 --- a/src/puresize.h +++ b/src/puresize.h @@ -73,9 +73,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ /* Signal an error if OBJ is pure. */ #define CHECK_IMPURE(obj) \ { if (PURE_P (obj)) \ - pure_write_error (); } + pure_write_error (obj); } -extern _Noreturn void pure_write_error (void); +extern _Noreturn void pure_write_error (Lisp_Object); /* Define PURE_P. */ |