comparison src/insdel.c @ 8647:d66b80e5bc77

(insert_1): New arg INHERIT. (insert_and_inherit): New function.

8646:0f05e3e89f87

     register unsigned char *string;
     register length;
{
  if (length > 0)
    {
      insert_1 (string, length);
      signal_after_change (PT-length, 0, length);
    }
}

static void
insert_1 (string, length)
     register unsigned char *string;
     register length;
{
  register Lisp_Object temp;

  /* Make sure point-max won't overflow after this insertion.  */
  XSET (temp, Lisp_Int, length + Z);

  GAP_SIZE -= length;
  GPT += length;
  ZV += length;
  Z += length;
  adjust_point (length);
}

/* Insert the part of the text of STRING, a Lisp object assumed to be
   of type string, consisting of the LENGTH characters starting at
   position POS.  If the text of STRING has properties, they are absorbed

     register int length;
{
  if (length > 0)
    {
      register int opoint = PT;
      insert_1 (string, length);
      adjust_markers (opoint - 1, opoint, length);
      signal_after_change (PT-length, 0, length);
    }
}

8647:d66b80e5bc77

     register unsigned char *string;
     register length;
{
  if (length > 0)
    {
      insert_1 (string, length, 0);
      signal_after_change (PT-length, 0, length);
    }
}

insert_and_inherit (string, length)
     register unsigned char *string;
     register length;
{
  if (length > 0)
    {
      insert_1 (string, length, 1);
      signal_after_change (PT-length, 0, length);
    }
}

static void
insert_1 (string, length, inherit)
     register unsigned char *string;
     register length;
     int inherit;
{
  register Lisp_Object temp;

  /* Make sure point-max won't overflow after this insertion.  */
  XSET (temp, Lisp_Int, length + Z);

  GAP_SIZE -= length;
  GPT += length;
  ZV += length;
  Z += length;
  adjust_point (length);

  if (!inherit)
    Fset_text_properties (make_number (PT - length), make_number (PT),
			  Qnil, Qnil);
}

/* Insert the part of the text of STRING, a Lisp object assumed to be
   of type string, consisting of the LENGTH characters starting at
   position POS.  If the text of STRING has properties, they are absorbed

     register int length;
{
  if (length > 0)
    {
      register int opoint = PT;
      insert_1 (string, length, 1);
      adjust_markers (opoint - 1, opoint, length);
      signal_after_change (PT-length, 0, length);
    }
}