* intervals.c (create_root_interval, balance_possible_root_interval,

delete_interval, copy_intervals_to_string): Use STRING_SET_INTERVALS.

diff --git a/src/intervals.c b/src/intervals.c
index 0129faa78773774bd440f5a99eabfbc2aea5ca28..9ed2a651f55fc0416605369517585d8c2b278973 100644 (file)
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -81,7 +81,7 @@ create_root_interval (parent)
   else if (STRINGP (parent))
     {
       new->total_length = SCHARS (parent);
-      STRING_INTERVALS (parent) = new;
+      STRING_SET_INTERVALS (parent, new);
       new->position = 0;
     }
 
@@ -452,7 +452,7 @@ balance_possible_root_interval (interval)
       if (BUFFERP (parent))
        BUF_INTERVALS (XBUFFER (parent)) = interval;
       else if (STRINGP (parent))
-       STRING_INTERVALS (parent) = interval;
+       STRING_SET_INTERVALS (parent, interval);
     }
 
   return interval;
@@ -1280,7 +1280,7 @@ delete_interval (i)
       if (BUFFERP (owner))
        BUF_INTERVALS (XBUFFER (owner)) = parent;
       else if (STRINGP (owner))
-       STRING_INTERVALS (owner) = parent;
+       STRING_SET_INTERVALS (owner, parent);
       else
        abort ();
 
@@ -2384,7 +2384,7 @@ copy_intervals_to_string (string, buffer, position, length)
     return;
 
   SET_INTERVAL_OBJECT (interval_copy, string);
-  STRING_INTERVALS (string) = interval_copy;
+  STRING_SET_INTERVALS (string, interval_copy);
 }
 \f
 /* Return 1 if strings S1 and S2 have identical properties; 0 otherwise.