From: Ken Raeburn <raeburn@raeburn.org>
Date: Mon, 15 Jul 2002 06:56:10 +0000 (+0000)
Subject: * intervals.c (create_root_interval, balance_possible_root_interval,
X-Git-Tag: ttn-vms-21-2-B4~14129
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b13738b697be76a8409a2eb650cef1ba0832d255;p=emacs.git

* 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 0129faa7877..9ed2a651f55 100644
--- 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);
 }
 
 /* Return 1 if strings S1 and S2 have identical properties; 0 otherwise.