/[emacs]/emacs/src/intervals.c
ViewVC logotype

Diff of /emacs/src/intervals.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.116 by raeburn, Mon Jul 15 00:00:36 2002 UTC revision 1.117 by raeburn, Mon Jul 15 06:56:10 2002 UTC
# Line 81  create_root_interval (parent) Line 81  create_root_interval (parent)
81    else if (STRINGP (parent))    else if (STRINGP (parent))
82      {      {
83        new->total_length = SCHARS (parent);        new->total_length = SCHARS (parent);
84        STRING_INTERVALS (parent) = new;        STRING_SET_INTERVALS (parent, new);
85        new->position = 0;        new->position = 0;
86      }      }
87    
# Line 452  balance_possible_root_interval (interval Line 452  balance_possible_root_interval (interval
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          STRING_INTERVALS (parent) = interval;          STRING_SET_INTERVALS (parent, interval);
456      }      }
457    
458    return interval;    return interval;
# Line 1280  delete_interval (i) Line 1280  delete_interval (i)
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          STRING_INTERVALS (owner) = parent;          STRING_SET_INTERVALS (owner, parent);
1284        else        else
1285          abort ();          abort ();
1286    
# Line 2384  copy_intervals_to_string (string, buffer Line 2384  copy_intervals_to_string (string, buffer
2384      return;      return;
2385    
2386    SET_INTERVAL_OBJECT (interval_copy, string);    SET_INTERVAL_OBJECT (interval_copy, string);
2387    STRING_INTERVALS (string) = interval_copy;    STRING_SET_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.

Legend:
Removed from v.1.116  
changed lines
  Added in v.1.117

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26