Mercurial > emacs
comparison src/insdel.c @ 9270:405b269631c3
(insert_1, insert_from_string_1): Use new accessor macros instead of calling
XSET directly.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 04 Oct 1994 12:09:34 +0000 |
parents | 7242936baf4e |
children | 6061a432881f |
comparison
equal
deleted
inserted
replaced
9269:0f29bb3f784f | 9270:405b269631c3 |
---|---|
332 int inherit; | 332 int inherit; |
333 { | 333 { |
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 |
341 prepare_to_modify_buffer (PT, PT); | 341 prepare_to_modify_buffer (PT, PT); |
342 | 342 |
398 { | 398 { |
399 register Lisp_Object temp; | 399 register Lisp_Object temp; |
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 |
407 GCPRO1 (string); | 407 GCPRO1 (string); |
408 prepare_to_modify_buffer (PT, PT); | 408 prepare_to_modify_buffer (PT, PT); |