1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 16:21:07 -08:00

(insert_before_markers_and_inherit): New function.

This commit is contained in:
Richard M. Stallman 1994-08-30 07:20:23 +00:00
parent 107740f53d
commit 598fb6feed

View file

@ -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)