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)