Mercurial > emacs
changeset 8687:ae896adcb7a3
(prepare_to_modify_buffer): Don't call verify_overlay_modification if
no overlays, or verify_interval_modification no intervals.
(insert_1): Don't call interval fns if buffer has none.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 02 Sep 1994 23:30:24 +0000 |
| parents | c468db944aa2 |
| children | 1aba2fd3fd13 |
| files | src/insdel.c |
| diffstat | 1 files changed, 13 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/insdel.c Fri Sep 02 23:27:04 1994 +0000 +++ b/src/insdel.c Fri Sep 02 23:30:24 1994 +0000 @@ -350,8 +350,11 @@ bcopy (string, GPT_ADDR, length); - /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ - offset_intervals (current_buffer, PT, length); +#ifdef USE_TEXT_PROPERTIES + if (current_buffer->intervals != 0) + /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES. */ + offset_intervals (current_buffer, PT, length); +#endif GAP_SIZE -= length; GPT += length; @@ -359,9 +362,11 @@ Z += length; adjust_point (length); - if (!inherit) +#ifdef USE_TEXT_PROPERTIES + if (!inherit && current_buffer->intervals != 0) Fset_text_properties (make_number (PT - length), make_number (PT), Qnil, Qnil); +#endif } /* Insert the part of the text of STRING, a Lisp object assumed to be @@ -595,9 +600,12 @@ Fbarf_if_buffer_read_only (); /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ - verify_interval_modification (current_buffer, start, end); + if (current_buffer->intervals != 0) + verify_interval_modification (current_buffer, start, end); - verify_overlay_modification (start, end); + if (!NILP (current_buffer->overlays_before) + || !NILP (current_buffer->overlays_after)) + verify_overlay_modification (start, end); #ifdef CLASH_DETECTION if (!NILP (current_buffer->filename)