comparison src/buffer.c @ 6675:cf38c5af079d

(verify_overlay_modification): Run modification-hooks for any deletion that intersects the overlay.
author Karl Heuer <kwzh@gnu.org>
date Tue, 05 Apr 1994 03:32:07 +0000
parents 830263c59354
children 28e36f59e856
comparison
equal deleted inserted replaced
6674:7ada27b4bf3c 6675:cf38c5af079d
2055 { 2055 {
2056 tail = Fcopy_sequence (tail); 2056 tail = Fcopy_sequence (tail);
2057 call_overlay_mod_hooks (prop, overlay, start, end); 2057 call_overlay_mod_hooks (prop, overlay, start, end);
2058 } 2058 }
2059 } 2059 }
2060 if (insertion 2060 /* Test for intersecting intervals. This does the right thing
2061 ? (XFASTINT (start) > startpos && XFASTINT (end) < endpos) 2061 for both insertion and deletion. */
2062 : (XFASTINT (start) >= startpos && XFASTINT (end) <= endpos)) 2062 if (XFASTINT (end) > startpos && XFASTINT (start) < endpos)
2063 { 2063 {
2064 prop = Foverlay_get (overlay, Qmodification_hooks); 2064 prop = Foverlay_get (overlay, Qmodification_hooks);
2065 if (!NILP (prop)) 2065 if (!NILP (prop))
2066 { 2066 {
2067 tail = Fcopy_sequence (tail); 2067 tail = Fcopy_sequence (tail);
2101 { 2101 {
2102 tail = Fcopy_sequence (tail); 2102 tail = Fcopy_sequence (tail);
2103 call_overlay_mod_hooks (prop, overlay, start, end); 2103 call_overlay_mod_hooks (prop, overlay, start, end);
2104 } 2104 }
2105 } 2105 }
2106 if (insertion 2106 /* Test for intersecting intervals. This does the right thing
2107 ? (XFASTINT (start) > startpos && XFASTINT (end) < endpos) 2107 for both insertion and deletion. */
2108 : (XFASTINT (start) >= startpos && XFASTINT (end) <= endpos)) 2108 if (XFASTINT (end) > startpos && XFASTINT (start) < endpos)
2109 { 2109 {
2110 prop = Foverlay_get (overlay, Qmodification_hooks); 2110 prop = Foverlay_get (overlay, Qmodification_hooks);
2111 if (!NILP (prop)) 2111 if (!NILP (prop))
2112 { 2112 {
2113 tail = Fcopy_sequence (tail); 2113 tail = Fcopy_sequence (tail);