From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 13 Jul 1993 02:19:50 +0000 (+0000)
Subject: (verify_interval_modification):
X-Git-Tag: emacs-19.34~11785
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c36494197bf0d9e0418eebd94243d05e9a59c769;p=emacs.git

(verify_interval_modification):
For insertion, run the insert-before-hooks and insert-after-hooks,
not the modification-hooks.
---

diff --git a/src/intervals.c b/src/intervals.c
index da391d559cb..8a77073278a 100644
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1473,11 +1473,11 @@ verify_interval_modification (buf, start, end)
 	    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),