diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-08-30 07:20:23 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-08-30 07:20:23 +0000 |
commit | 598fb6feed8fe59b52585ca39aaa6eaa602881e4 (patch) | |
tree | e6fb4d749febe1072f0e375b6e6cae73ce6c92d4 | |
parent | 107740f53db3c868eb9dede429f90a83db9f20d3 (diff) | |
download | emacs-598fb6feed8fe59b52585ca39aaa6eaa602881e4.tar.gz |
(insert_before_markers_and_inherit): New function.
-rw-r--r-- | src/insdel.c | 13 |
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) |