diff options
author | Karl Heuer <kwzh@gnu.org> | 1995-04-17 23:16:23 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1995-04-17 23:16:23 +0000 |
commit | c392af05f60d6c8732112cc9103306e86b326609 (patch) | |
tree | 6eca35e7291a9968c6d63afaaf8fa05c650ef050 | |
parent | 3e0d816ee8ebad413f2ffdcf12ce4827dcac2cc1 (diff) | |
download | emacs-c392af05f60d6c8732112cc9103306e86b326609.tar.gz |
(insert_1): Adjust overlay center after inserting.
(insert_from_string_1, insert_from_buffer_1): Likewise.
(del_range_1): Adjust overlay center after deleting.
-rw-r--r-- | src/insdel.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/insdel.c b/src/insdel.c index 8d2f1b08bce..449bfc58b31 100644 --- a/src/insdel.c +++ b/src/insdel.c @@ -370,6 +370,7 @@ insert_1 (string, length, inherit, prepare) GPT += length; ZV += length; Z += length; + adjust_overlays_for_insert (PT, length); adjust_point (length); #ifdef USE_TEXT_PROPERTIES @@ -436,6 +437,7 @@ insert_from_string_1 (string, pos, length, inherit) GPT += length; ZV += length; Z += length; + adjust_overlays_for_insert (PT, length); /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ graft_intervals_into_buffer (XSTRING (string)->intervals, PT, length, @@ -510,6 +512,7 @@ insert_from_buffer_1 (buf, pos, length, inherit) GPT += length; ZV += length; Z += length; + adjust_overlays_for_insert (PT, length); adjust_point (length); /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ @@ -636,6 +639,10 @@ del_range_1 (from, to, prepare) to point at the end of the text before the gap. */ adjust_markers (to + GAP_SIZE, to + GAP_SIZE, - numdel - GAP_SIZE); + /* Adjust the overlay center as needed. This must be done after + adjusting the markers that bound the overlays. */ + adjust_overlays_for_delete (from, numdel); + GAP_SIZE += numdel; ZV -= numdel; Z -= numdel; |