mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-19 01:10:57 -08:00
Code Issues Projects Releases Wiki Activity

* intervals.c (create_root_interval, balance_possible_root_interval,

Browse source 
delete_interval, copy_intervals_to_string): Use STRING_SET_INTERVALS.
This commit is contained in:
Ken Raeburn 2002-07-15 06:56:10 +00:00
parent 7a2e5600ea
commit b13738b697
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/intervals.c
View file

@ -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.