Mercurial > emacs
changeset 40920:eb5f176de735
(graft_intervals_into_buffer):
Use set_text_properties_1 to clear out properties.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 11 Nov 2001 20:02:58 +0000 |
| parents | 864dc8e3a22d |
| children | 95756d215716 |
| files | src/intervals.c |
| diffstat | 1 files changed, 7 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/intervals.c Sun Nov 11 19:23:13 2001 +0000 +++ b/src/intervals.c Sun Nov 11 20:02:58 2001 +0000 @@ -1683,20 +1683,19 @@ tree = BUF_INTERVALS (buffer); - /* If the new text has no properties, it becomes part of whatever - interval it was inserted into. */ + /* If the new text has no properties, then with inheritance it + becomes part of whatever interval it was inserted into. + To prevent inheritance, we must clear out the properties + of the newly inserted text. */ if (NULL_INTERVAL_P (source)) { Lisp_Object buf; if (!inherit && ! NULL_INTERVAL_P (tree)) { - int saved_inhibit_modification_hooks = inhibit_modification_hooks; XSETBUFFER (buf, buffer); - inhibit_modification_hooks = 1; - Fset_text_properties (make_number (position), - make_number (position + length), - Qnil, buf); - inhibit_modification_hooks = saved_inhibit_modification_hooks; + set_text_properties_1 (make_number (position), + make_number (position + length), + Qnil, buf, 0); } if (! NULL_INTERVAL_P (BUF_INTERVALS (buffer))) BUF_INTERVALS (buffer) = balance_an_interval (BUF_INTERVALS (buffer));