Mercurial > emacs

comparison src/insdel.c @ 9270:405b269631c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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);