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. */ |