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:
parent
107740f53d
commit
598fb6feed
1 changed files with 13 additions and 0 deletions
13
src/insdel.c
13
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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue