mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 04:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(graft_intervals_into_buffer): New arg LENGTH.

Browse source 
If source has no intervals, set dest properties to nil.
This commit is contained in:
Richard M. Stallman 1993-11-25 06:28:03 +00:00
parent af9015f93d
commit 0b79989fc4
1 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/intervals.c
View file

@ -1221,6 +1221,7 @@ make_new_interval (intervals, start, length)
#endif
/* Insert the intervals of SOURCE into BUFFER at POSITION.
LENGTH is the length of the text in SOURCE.
This is used in insdel.c when inserting Lisp_Strings into the
buffer. The text corresponding to SOURCE is already in the buffer
@ -1228,7 +1229,8 @@ make_new_interval (intervals, start, length)
belonging to the string being inserted; intervals are never
shared.
If the inserted text had no intervals associated, this function
If the inserted text had no intervals associated, and we don't
want to inherit the surrounding text's properties, this function
simply returns -- offset_intervals should handle placing the
text in the correct interval, depending on the sticky bits.
@ -1253,9 +1255,9 @@ make_new_interval (intervals, start, length)
text... */
void
graft_intervals_into_buffer (source, position, buffer, inherit)
graft_intervals_into_buffer (source, position, length, buffer, inherit)
INTERVAL source;
int position;
int position, length;
struct buffer *buffer;
int inherit;
{
@ -1266,7 +1268,17 @@ graft_intervals_into_buffer (source, position, buffer, inherit)
/* If the new text has no properties, it becomes part of whatever
interval it was inserted into. */
if (NULL_INTERVAL_P (source))
return;
{
Lisp_Object buf;
if (!inherit)
{
XSET (buf, Lisp_Buffer, buffer);
Fset_text_properties (make_number (position),
make_number (position + length),
Qnil, buf);
}
return;
}
if (NULL_INTERVAL_P (tree))
{