# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 742529990 0
# Node ID bb9478383bde4aa760c41d7249b75a3e2143ecca
# Parent  adf973a863dd5474ff8eabc30de9fed116a1e865
(verify_interval_modification):
For insertion, run the insert-before-hooks and insert-after-hooks,
not the modification-hooks.

diff -r adf973a863dd -r bb9478383bde src/intervals.c
--- a/src/intervals.c	Mon Jul 12 23:32:43 1993 +0000
+++ b/src/intervals.c	Tue Jul 13 02:19:50 1993 +0000
@@ -1473,11 +1473,11 @@
 	    error ("Attempt to insert within read-only text");
 	}
 
-      /* Run both mod hooks (just once if they're the same).  */
+      /* Run both insert hooks (just once if they're the same).  */
       if (!NULL_INTERVAL_P (prev))
-	prev_mod_hooks = textget (prev->plist, Qmodification_hooks);
+	prev_mod_hooks = textget (prev->plist, Qinsert_after_hooks);
       if (!NULL_INTERVAL_P (i))
-	mod_hooks = textget (i->plist, Qmodification_hooks);
+	mod_hooks = textget (i->plist, Qinsert_before_hooks);
       GCPRO1 (mod_hooks);
       if (! NILP (prev_mod_hooks))
 	call_mod_hooks (prev_mod_hooks, make_number (start),