From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 30 Aug 1994 07:20:23 +0000 (+0000)
Subject: (insert_before_markers_and_inherit): New function.
X-Git-Tag: emacs-19.34~7186
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=598fb6feed8fe59b52585ca39aaa6eaa602881e4;p=emacs.git

(insert_before_markers_and_inherit): New function.
---

diff --git a/src/insdel.c b/src/insdel.c
index d368cd86ac1..c071d08dc62 100644
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -464,6 +464,19 @@ insert_before_markers (string, length)
     }
 }
 
+insert_before_markers_and_inherit (string, length)
+     unsigned char *string;
+     register int length;
+{
+  if (length > 0)
+    {
+      register int opoint = PT;
+      insert_1 (string, length, 1);
+      adjust_markers (opoint - 1, opoint, length);
+      signal_after_change (PT-length, 0, length);
+    }
+}
+
 /* Insert part of a Lisp string, relocating markers after.  */
 
 insert_from_string_before_markers (string, pos, length, inherit)