diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/data.c b/src/data.c index 66cf34c1e60..95c1d857964 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -27,7 +27,6 @@ along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ | |||
| 27 | 27 | ||
| 28 | #include "lisp.h" | 28 | #include "lisp.h" |
| 29 | #include "bignum.h" | 29 | #include "bignum.h" |
| 30 | #include "puresize.h" | ||
| 31 | #include "character.h" | 30 | #include "character.h" |
| 32 | #include "buffer.h" | 31 | #include "buffer.h" |
| 33 | #include "keyboard.h" | 32 | #include "keyboard.h" |
| @@ -136,12 +135,6 @@ wrong_type_argument (Lisp_Object predicate, Lisp_Object value) | |||
| 136 | } | 135 | } |
| 137 | 136 | ||
| 138 | void | 137 | void |
| 139 | pure_write_error (Lisp_Object obj) | ||
| 140 | { | ||
| 141 | xsignal2 (Qerror, build_string ("Attempt to modify read-only object"), obj); | ||
| 142 | } | ||
| 143 | |||
| 144 | void | ||
| 145 | args_out_of_range (Lisp_Object a1, Lisp_Object a2) | 138 | args_out_of_range (Lisp_Object a1, Lisp_Object a2) |
| 146 | { | 139 | { |
| 147 | xsignal2 (Qargs_out_of_range, a1, a2); | 140 | xsignal2 (Qargs_out_of_range, a1, a2); |