diff 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.

--- a/src/insdel.c	Mon Sep 13 04:15:45 1993 +0000
+++ b/src/insdel.c	Tue Sep 14 12:08:02 1993 +0000
@@ -327,9 +327,10 @@
    before we bcopy the stuff into the buffer, and relocate the string
    without insert noticing.  */
 
-insert_from_string (string, pos, length)
+insert_from_string (string, pos, length, inherit)
      Lisp_Object string;
      register int pos, length;
+     int inherit;
 {
   register Lisp_Object temp;
   struct gcpro gcpro1;
@@ -366,7 +367,7 @@
 
   /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
   graft_intervals_into_buffer (XSTRING (string)->intervals, point,
-			       current_buffer);
+			       current_buffer, inherit);
 
   SET_PT (point + length);
 
@@ -407,12 +408,13 @@
 
 /* Insert part of a Lisp string, relocating markers after.  */
 
-insert_from_string_before_markers (string, pos, length)
+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);
+  insert_from_string (string, pos, length, inherit);
   adjust_markers (opoint - 1, opoint, length);
 }