diff options
| author | Tom Tromey | 2013-06-13 11:29:06 -0600 |
|---|---|---|
| committer | Tom Tromey | 2013-06-13 11:29:06 -0600 |
| commit | 5ccb7e7b1ea2ca7f6e45d00d839e19f22cc961da (patch) | |
| tree | af9b79246f0b18d748c3e1c33b1bb1b33cf1fbe0 /src/data.c | |
| parent | 313dfb6277b3e1ef28c7bb76e776f10168e3f0a3 (diff) | |
| parent | 94fa6ec7b306b47c251f7b8b67662598027a7ff3 (diff) | |
| download | emacs-5ccb7e7b1ea2ca7f6e45d00d839e19f22cc961da.tar.gz emacs-5ccb7e7b1ea2ca7f6e45d00d839e19f22cc961da.zip | |
merge from trunk
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index c6cb1b43dd6..59fd921747a 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -103,8 +103,7 @@ wrong_type_argument (register Lisp_Object predicate, register Lisp_Object value) | |||
| 103 | void | 103 | void |
| 104 | pure_write_error (Lisp_Object obj) | 104 | pure_write_error (Lisp_Object obj) |
| 105 | { | 105 | { |
| 106 | Fsignal (Qerror, Fcons (build_string ("Attempt to modify read-only object"), | 106 | xsignal2 (Qerror, build_string ("Attempt to modify read-only object"), obj); |
| 107 | Fcons (obj, Qnil))); | ||
| 108 | } | 107 | } |
| 109 | 108 | ||
| 110 | void | 109 | void |