(adjust_markers_for_replace): When doing an insertion

(replacing a region of zero length), handle markers at the
insertion point properly.

1 files changed, 6 insertions, 1 deletions

diff --git a/src/insdel.c b/src/insdel.c
index 87f0a7898dc..f2aaa84a8b9 100644
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -578,7 +578,12 @@ adjust_markers_for_replace (from, from_byte, old_chars, old_bytes,
     {
       register struct Lisp_Marker *m = XMARKER (marker);
 
-      if (m->bytepos >= prev_to_byte)
+      if (m->bytepos >= prev_to_byte
+          && (old_bytes != 0
+              /* If this is an insertion (replacing 0 chars),
+                 reject the case of a marker that is at the
+                 insertion point and should stay before the insertion.  */
+              || m->bytepos > from_byte || m->insertion_type))
         {
           if (m->bytepos < prev_to_byte + combined_after_bytes)
             {