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)); |