comparison src/insdel.c @ 4712:367dc6ff392c

(insert_from_string): Pass extra arg to graft_intervals_into_buffer. New arg INHERIT. (insert_from_string_before_markers): New arg INHERIT.

4711:94fe4e71f7fc

   It does not work to use `insert' for this, because a GC could happen
   before we bcopy the stuff into the buffer, and relocate the string
   without insert noticing.  */

insert_from_string (string, pos, length)
     Lisp_Object string;
     register int pos, length;
{
  register Lisp_Object temp;
  struct gcpro gcpro1;

  if (length < 1)

  ZV += length;
  Z += length;

  /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
  graft_intervals_into_buffer (XSTRING (string)->intervals, point,
			       current_buffer);

  SET_PT (point + length);

  signal_after_change (point-length, 0, length);
}

  adjust_markers (opoint - 1, opoint, length);
}

/* Insert part of a Lisp string, relocating markers after.  */

insert_from_string_before_markers (string, pos, length)
     Lisp_Object string;
     register int pos, length;
{
  register int opoint = point;
  insert_from_string (string, pos, length);
  adjust_markers (opoint - 1, opoint, length);
}

/* Delete characters in current buffer
   from FROM up to (but not including) TO.  */

4712:367dc6ff392c

   It does not work to use `insert' for this, because a GC could happen
   before we bcopy the stuff into the buffer, and relocate the string
   without insert noticing.  */

insert_from_string (string, pos, length, inherit)
     Lisp_Object string;
     register int pos, length;
     int inherit;
{
  register Lisp_Object temp;
  struct gcpro gcpro1;

  if (length < 1)

  ZV += length;
  Z += length;

  /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
  graft_intervals_into_buffer (XSTRING (string)->intervals, point,
			       current_buffer, inherit);

  SET_PT (point + length);

  signal_after_change (point-length, 0, length);
}

  adjust_markers (opoint - 1, opoint, length);
}

/* Insert part of a Lisp string, relocating markers after.  */

insert_from_string_before_markers (string, pos, length, inherit)
     Lisp_Object string;
     register int pos, length;
     int inherit;
{
  register int opoint = point;
  insert_from_string (string, pos, length, inherit);
  adjust_markers (opoint - 1, opoint, length);
}

/* Delete characters in current buffer
   from FROM up to (but not including) TO.  */