(del_range_1, del_range_byte, del_range_both): Handle

case that TO ends up beyond ZV after running before-change-functions.

2 files changed, 16 insertions, 3 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 670e999a9ea..3d7451da8ad 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2001-02-13  Gerd Moellmann  <gerd@gnu.org>
 
+        * insdel.c (del_range_1, del_range_byte, del_range_both): Handle
+        case that TO ends up beyond ZV after running before-change-functions.
+
         * window.c (window_loop) <GET_BUFFER_WINDOW>: Prefer to return
         the selected window if it is showing the buffer in question.
 
diff --git a/src/insdel.c b/src/insdel.c
index 5574f850e83..7ea1181703b 100644
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -1552,7 +1552,7 @@ del_range_1 (from, to, prepare, ret_string)
     {
       int range_length = to - from;
       prepare_to_modify_buffer (from, to, &from);
-      to = from + range_length;
+      to = min (ZV, from + range_length);
     }
 
   from_byte = CHAR_TO_BYTE (from);
@@ -1595,7 +1595,12 @@ del_range_byte (from_byte, to_byte, prepare)
 
       if (old_from != from)
         from_byte = CHAR_TO_BYTE (from);
-      if (old_to == Z - to)
+      if (to > ZV)
+        {
+          to = ZV;
+          to_byte = ZV_BYTE;
+        }
+      else if (old_to == Z - to)
         to_byte = CHAR_TO_BYTE (to);
     }
 
@@ -1634,7 +1639,12 @@ del_range_both (from, from_byte, to, to_byte, prepare)
 
       if (old_from != from)
         from_byte = CHAR_TO_BYTE (from);
-      if (old_to == Z - to)
+      if (to > ZV)
+        {
+          to = ZV;
+          to_byte = ZV_BYTE;
+        }
+      else if (old_to == Z - to)
         to_byte = CHAR_TO_BYTE (to);
     }