From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 2 Mar 1994 00:55:05 +0000 (+0000)
Subject: (del_range_1): New function.
X-Git-Tag: emacs-19.34~9726
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=47c64747da0c7f135422425ddd5e10c5852fff7c;p=emacs.git

(del_range_1): New function.
(del_range): Use it.
---

diff --git a/src/insdel.c b/src/insdel.c
index 2a84b4d533d..6d5986e6fe1 100644
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -423,6 +423,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;
 
@@ -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++;