80 |
} |
} |
81 |
else if (STRINGP (parent)) |
else if (STRINGP (parent)) |
82 |
{ |
{ |
83 |
new->total_length = XSTRING (parent)->size; |
new->total_length = SCHARS (parent); |
84 |
XSTRING (parent)->intervals = new; |
STRING_INTERVALS (parent) = new; |
85 |
new->position = 0; |
new->position = 0; |
86 |
} |
} |
87 |
|
|
452 |
if (BUFFERP (parent)) |
if (BUFFERP (parent)) |
453 |
BUF_INTERVALS (XBUFFER (parent)) = interval; |
BUF_INTERVALS (XBUFFER (parent)) = interval; |
454 |
else if (STRINGP (parent)) |
else if (STRINGP (parent)) |
455 |
XSTRING (parent)->intervals = interval; |
STRING_INTERVALS (parent) = interval; |
456 |
} |
} |
457 |
|
|
458 |
return interval; |
return interval; |
1280 |
if (BUFFERP (owner)) |
if (BUFFERP (owner)) |
1281 |
BUF_INTERVALS (XBUFFER (owner)) = parent; |
BUF_INTERVALS (XBUFFER (owner)) = parent; |
1282 |
else if (STRINGP (owner)) |
else if (STRINGP (owner)) |
1283 |
XSTRING (owner)->intervals = parent; |
STRING_INTERVALS (owner) = parent; |
1284 |
else |
else |
1285 |
abort (); |
abort (); |
1286 |
|
|
2247 |
else if (BUFFERP (object)) |
else if (BUFFERP (object)) |
2248 |
i = find_interval (BUF_INTERVALS (XBUFFER (object)), pos); |
i = find_interval (BUF_INTERVALS (XBUFFER (object)), pos); |
2249 |
else if (STRINGP (object)) |
else if (STRINGP (object)) |
2250 |
i = find_interval (XSTRING (object)->intervals, pos); |
i = find_interval (STRING_INTERVALS (object), pos); |
2251 |
else |
else |
2252 |
abort (); |
abort (); |
2253 |
|
|
2384 |
return; |
return; |
2385 |
|
|
2386 |
SET_INTERVAL_OBJECT (interval_copy, string); |
SET_INTERVAL_OBJECT (interval_copy, string); |
2387 |
XSTRING (string)->intervals = interval_copy; |
STRING_INTERVALS (string) = interval_copy; |
2388 |
} |
} |
2389 |
|
|
2390 |
/* Return 1 if strings S1 and S2 have identical properties; 0 otherwise. |
/* Return 1 if strings S1 and S2 have identical properties; 0 otherwise. |
2396 |
{ |
{ |
2397 |
INTERVAL i1, i2; |
INTERVAL i1, i2; |
2398 |
int pos = 0; |
int pos = 0; |
2399 |
int end = XSTRING (s1)->size; |
int end = SCHARS (s1); |
2400 |
|
|
2401 |
i1 = find_interval (XSTRING (s1)->intervals, 0); |
i1 = find_interval (STRING_INTERVALS (s1), 0); |
2402 |
i2 = find_interval (XSTRING (s2)->intervals, 0); |
i2 = find_interval (STRING_INTERVALS (s2), 0); |
2403 |
|
|
2404 |
while (pos < end) |
while (pos < end) |
2405 |
{ |
{ |