emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/src/intervals.c


From: Richard M. Stallman
Subject: [Emacs-diffs] Changes to emacs/src/intervals.c
Date: Sun, 11 Nov 2001 15:02:58 -0500

Index: emacs/src/intervals.c
diff -u emacs/src/intervals.c:1.108 emacs/src/intervals.c:1.109
--- emacs/src/intervals.c:1.108 Wed Nov  7 01:25:57 2001
+++ emacs/src/intervals.c       Sun Nov 11 15:02:58 2001
@@ -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));



reply via email to

[Prev in Thread] Current Thread [Next in Thread]