diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-13 02:19:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-13 02:19:50 +0000 |
| commit | bbbe1b01cf70e06d38077a3df75ea499c2073aa6 (patch) | |
| tree | f240261b0e9ee5c816e8c32066e3e384552411ba /src/intervals.c | |
| parent | fb338058bc52fc90504fdc990b07905f09552de6 (diff) | |
| download | emacs-bbbe1b01cf70e06d38077a3df75ea499c2073aa6.tar.gz | |
(verify_interval_modification):
For insertion, run the insert-before-hooks and insert-after-hooks,
not the modification-hooks.
Diffstat (limited to 'src/intervals.c')
| -rw-r--r-- | src/intervals.c | 6 |
1 files changed, 3 insertions, 3 deletions
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), |