(graft_intervals_into_buffer): Turn off

inhibit_modification_hooks around calling Fset_text_properties.

diff --git a/src/intervals.c b/src/intervals.c
index 28fa540a383142c02a48a66a5a483c0715e5dbb3..1a5c2c95322bf4f1ff5b22179fa43211fab5d7e5 100644 (file)
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1579,10 +1579,13 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit)
       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;
        }
       if (! NULL_INTERVAL_P (BUF_INTERVALS (buffer)))
        BUF_INTERVALS (buffer) = balance_an_interval (BUF_INTERVALS (buffer));