# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1005508978 0
# Node ID eb5f176de735190e9d79e999a5b298ddff5063f6
# Parent  864dc8e3a22dbabe46070acb273762a800c5b563
(graft_intervals_into_buffer):
Use set_text_properties_1 to clear out properties.

diff -r 864dc8e3a22d -r eb5f176de735 src/intervals.c
--- a/src/intervals.c	Sun Nov 11 19:23:13 2001 +0000
+++ b/src/intervals.c	Sun Nov 11 20:02:58 2001 +0000
@@ -1683,20 +1683,19 @@
 
   tree = BUF_INTERVALS (buffer);
 
-  /* If the new text has no properties, it becomes part of whatever
-     interval it was inserted into.  */
+  /* If the new text has no properties, then with inheritance it
+     becomes part of whatever interval it was inserted into.
+     To prevent inheritance, we must clear out the properties
+     of the newly inserted text.  */
   if (NULL_INTERVAL_P (source))
     {
       Lisp_Object buf;
       if (!inherit && ! NULL_INTERVAL_P (tree))
 	{
-	  int saved_inhibit_modification_hooks = inhibit_modification_hooks;
 	  XSETBUFFER (buf, buffer);
-	  inhibit_modification_hooks = 1;
-	  Fset_text_properties (make_number (position),
-				make_number (position + length),
-				Qnil, buf);
-	  inhibit_modification_hooks = saved_inhibit_modification_hooks;
+	  set_text_properties_1 (make_number (position),
+				 make_number (position + length),
+				 Qnil, buf, 0);
 	}
       if (! NULL_INTERVAL_P (BUF_INTERVALS (buffer)))
 	BUF_INTERVALS (buffer) = balance_an_interval (BUF_INTERVALS (buffer));