(del_range_1): New function.

(del_range): Use it.

1 files changed, 10 insertions, 1 deletions

diff --git a/src/insdel.c b/src/insdel.c
index 2a84b4d533d..6d5986e6fe1 100644
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -424,6 +424,14 @@ insert_from_string_before_markers (string, pos, length, inherit)
 del_range (from, to)
      register int from, to;
 {
+  return del_range_1 (from, to, 1);
+}
+
+/* Like del_range; PREPARE says whether to call prepare_to_modify_buffer.  */
+
+del_range_1 (from, to, prepare)
+     register int from, to, prepare;
+{
   register int numdel;
 
   /* Make args be valid */
@@ -441,7 +449,8 @@ del_range (from, to)
   if (to < GPT)
     gap_left (to, 0);
 
-  prepare_to_modify_buffer (from, to);
+  if (prepare)
+    prepare_to_modify_buffer (from, to);
 
   record_delete (from, numdel);
   MODIFF++;