# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1026716170 0
# Node ID 48b292c584a679bef8ba0b8bacb7359f3d3f0f1e
# Parent  18cf1d2514d94f0b585cd3c6df37c7eeec7ec530
* intervals.c (create_root_interval, balance_possible_root_interval,
delete_interval, copy_intervals_to_string): Use STRING_SET_INTERVALS.

diff -r 18cf1d2514d9 -r 48b292c584a6 src/intervals.c
--- a/src/intervals.c	Mon Jul 15 06:55:28 2002 +0000
+++ b/src/intervals.c	Mon Jul 15 06:56:10 2002 +0000
@@ -81,7 +81,7 @@
   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 @@
       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 @@
       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 @@
     return;
 
   SET_INTERVAL_OBJECT (interval_copy, string);
-  STRING_INTERVALS (string) = interval_copy;
+  STRING_SET_INTERVALS (string, interval_copy);
 }
 
 /* Return 1 if strings S1 and S2 have identical properties; 0 otherwise.