# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 778548624 0
# Node ID ae896adcb7a308697fc642334aa1403fb1f364aa
# Parent  c468db944aa2a51d09cf6921ec4ae0149a8d4c8f
(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.

diff -r c468db944aa2 -r ae896adcb7a3 src/insdel.c
--- 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)