diff options
| author | Stefan Monnier | 2013-06-03 11:18:18 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2013-06-03 11:18:18 -0400 |
| commit | a8a7c5f651cd9c3d354a4cb4938e5289d4cbbe4b (patch) | |
| tree | cf9664003563a682554c9f6826ac967d92e9b012 /src/puresize.h | |
| parent | 2f23b3ab02d48e972fbce7f4a38527e07c651aa0 (diff) | |
| download | emacs-a8a7c5f651cd9c3d354a4cb4938e5289d4cbbe4b.tar.gz emacs-a8a7c5f651cd9c3d354a4cb4938e5289d4cbbe4b.zip | |
* 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/>. */ | |||
| 73 | /* Signal an error if OBJ is pure. */ | 73 | /* Signal an error if OBJ is pure. */ |
| 74 | #define CHECK_IMPURE(obj) \ | 74 | #define CHECK_IMPURE(obj) \ |
| 75 | { if (PURE_P (obj)) \ | 75 | { if (PURE_P (obj)) \ |
| 76 | pure_write_error (); } | 76 | pure_write_error (obj); } |
| 77 | 77 | ||
| 78 | extern _Noreturn void pure_write_error (void); | 78 | extern _Noreturn void pure_write_error (Lisp_Object); |
| 79 | 79 | ||
| 80 | /* Define PURE_P. */ | 80 | /* Define PURE_P. */ |
| 81 | 81 | ||