mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(insert_from_string): Pass extra arg to graft_intervals_into_buffer.

Browse Source 
New arg INHERIT.
(insert_from_string_before_markers): New arg INHERIT.
This commit is contained in:
Richard M. Stallman 1993-09-14 12:08:02 +00:00
parent 3fe5383642
commit 9391e59130
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/insdel.c
View File

@ -327,9 +327,10 @@ insert (string, length)
before we bcopy the stuff into the buffer, and relocate the string
without insert noticing. */
insert_from_string (string, pos, length)
insert_from_string (string, pos, length, inherit)
Lisp_Object string;
register int pos, length;
int inherit;
{
register Lisp_Object temp;
struct gcpro gcpro1;
@ -366,7 +367,7 @@ insert_from_string (string, pos, length)
/* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
graft_intervals_into_buffer (XSTRING (string)->intervals, point,
current_buffer);
current_buffer, inherit);
SET_PT (point + length);
@ -407,12 +408,13 @@ insert_before_markers (string, length)
/* Insert part of a Lisp string, relocating markers after. */
insert_from_string_before_markers (string, pos, length)
insert_from_string_before_markers (string, pos, length, inherit)
Lisp_Object string;
register int pos, length;
int inherit;
{
register int opoint = point;
insert_from_string (string, pos, length);
insert_from_string (string, pos, length, inherit);
adjust_markers (opoint - 1, opoint, length);
}