diff options
| author | Karl Heuer | 1994-10-04 12:09:34 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-10-04 12:09:34 +0000 |
| commit | eb7db9e6c24f46cd7671241cafb5144a2b34a5bf (patch) | |
| tree | 844f146119be562aa7614e4d9ffce066edb4c3cd | |
| parent | f8f645a1c257f1d5829d464b7e8b76d5901a0ae9 (diff) | |
| download | emacs-eb7db9e6c24f46cd7671241cafb5144a2b34a5bf.tar.gz emacs-eb7db9e6c24f46cd7671241cafb5144a2b34a5bf.zip | |
(insert_1, insert_from_string_1): Use new accessor macros instead of calling
XSET directly.
| -rw-r--r-- | src/insdel.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/insdel.c b/src/insdel.c index 74f8503422b..969f70dba6e 100644 --- a/src/insdel.c +++ b/src/insdel.c | |||
| @@ -334,7 +334,7 @@ insert_1 (string, length, inherit) | |||
| 334 | register Lisp_Object temp; | 334 | register Lisp_Object temp; |
| 335 | 335 | ||
| 336 | /* Make sure point-max won't overflow after this insertion. */ | 336 | /* Make sure point-max won't overflow after this insertion. */ |
| 337 | XSET (temp, Lisp_Int, length + Z); | 337 | XSETINT (temp, length + Z); |
| 338 | if (length + Z != XINT (temp)) | 338 | if (length + Z != XINT (temp)) |
| 339 | error ("maximum buffer size exceeded"); | 339 | error ("maximum buffer size exceeded"); |
| 340 | 340 | ||
| @@ -400,7 +400,7 @@ insert_from_string_1 (string, pos, length, inherit) | |||
| 400 | struct gcpro gcpro1; | 400 | struct gcpro gcpro1; |
| 401 | 401 | ||
| 402 | /* Make sure point-max won't overflow after this insertion. */ | 402 | /* Make sure point-max won't overflow after this insertion. */ |
| 403 | XSET (temp, Lisp_Int, length + Z); | 403 | XSETINT (temp, length + Z); |
| 404 | if (length + Z != XINT (temp)) | 404 | if (length + Z != XINT (temp)) |
| 405 | error ("maximum buffer size exceeded"); | 405 | error ("maximum buffer size exceeded"); |
| 406 | 406 | ||