summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-08-30 07:20:23 +0000
committerRichard M. Stallman <rms@gnu.org>1994-08-30 07:20:23 +0000
commit598fb6feed8fe59b52585ca39aaa6eaa602881e4 (patch)
treee6fb4d749febe1072f0e375b6e6cae73ce6c92d4
parent107740f53db3c868eb9dede429f90a83db9f20d3 (diff)
downloademacs-598fb6feed8fe59b52585ca39aaa6eaa602881e4.tar.gz
(insert_before_markers_and_inherit): New function.
-rw-r--r--src/insdel.c13
1 files changed, 13 insertions, 0 deletions
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)