/[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.108 by pj, Wed Nov 7 06:25:57 2001 UTC revision 1.109 by rms, Sun Nov 11 20:02:58 2001 UTC
# Line 1683  graft_intervals_into_buffer (source, pos Line 1683  graft_intervals_into_buffer (source, pos
1683    
1684    tree = BUF_INTERVALS (buffer);    tree = BUF_INTERVALS (buffer);
1685    
1686    /* If the new text has no properties, it becomes part of whatever    /* If the new text has no properties, then with inheritance it
1687       interval it was inserted into.  */       becomes part of whatever interval it was inserted into.
1688         To prevent inheritance, we must clear out the properties
1689         of the newly inserted text.  */
1690    if (NULL_INTERVAL_P (source))    if (NULL_INTERVAL_P (source))
1691      {      {
1692        Lisp_Object buf;        Lisp_Object buf;
1693        if (!inherit && ! NULL_INTERVAL_P (tree))        if (!inherit && ! NULL_INTERVAL_P (tree))
1694          {          {
           int saved_inhibit_modification_hooks = inhibit_modification_hooks;  
1695            XSETBUFFER (buf, buffer);            XSETBUFFER (buf, buffer);
1696            inhibit_modification_hooks = 1;            set_text_properties_1 (make_number (position),
1697            Fset_text_properties (make_number (position),                                   make_number (position + length),
1698                                  make_number (position + length),                                   Qnil, buf, 0);
                                 Qnil, buf);  
           inhibit_modification_hooks = saved_inhibit_modification_hooks;  
1699          }          }
1700        if (! NULL_INTERVAL_P (BUF_INTERVALS (buffer)))        if (! NULL_INTERVAL_P (BUF_INTERVALS (buffer)))
1701          BUF_INTERVALS (buffer) = balance_an_interval (BUF_INTERVALS (buffer));          BUF_INTERVALS (buffer) = balance_an_interval (BUF_INTERVALS (buffer));

Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109

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