# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 748008482 0
# Node ID 367dc6ff392c7e2f1883bb2d10a2fa7b625eda03
# Parent  94fe4e71f7fcee9e870f5e8615e4e246551f83d7
(insert_from_string): Pass extra arg to graft_intervals_into_buffer.
New arg INHERIT.
(insert_from_string_before_markers): New arg INHERIT.

diff -r 94fe4e71f7fc -r 367dc6ff392c src/insdel.c
--- 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);
 }