diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-04-06 08:49:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-04-06 08:49:28 +0000 |
| commit | 6445414a594d14ed33cf48ed1ae95764f81bcbc7 (patch) | |
| tree | d4781d0ae9e9725d856021580740bac93de8f52d /src | |
| parent | 5d66c9e19e29ded95899c976bcc779ac9946b4f7 (diff) | |
| download | emacs-6445414a594d14ed33cf48ed1ae95764f81bcbc7.tar.gz | |
(graft_intervals_into_buffer): Turn off
inhibit_modification_hooks around calling Fset_text_properties.
Diffstat (limited to 'src')
| -rw-r--r-- | src/intervals.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/intervals.c b/src/intervals.c index 28fa540a383..1a5c2c95322 100644 --- a/src/intervals.c +++ b/src/intervals.c @@ -1579,10 +1579,13 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit) 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; } if (! NULL_INTERVAL_P (BUF_INTERVALS (buffer))) BUF_INTERVALS (buffer) = balance_an_interval (BUF_INTERVALS (buffer)); |