mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(Fremove_list_of_text_properties): Ensure

Browse Source 
modify_region is called only when buffer is modified and that
signal_after_change is allways called in that case.
This commit is contained in:
Lars Hansen 2006-04-20 11:36:50 +00:00
parent ee546279bc
commit 9b17c9f5cd
1 changed files with 26 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/textprop.c
View File

@ -1602,10 +1602,12 @@ Return t if any property was actually removed, nil otherwise. */)
}
}
if (BUFFERP (object))
modify_region (XBUFFER (object), XINT (start), XINT (end));
/* We are at the beginning of an interval, with len to scan */
/* We are at the beginning of an interval, with len to scan.
The flag `modified' records if changes have been made.
When object is a buffer, we must call modify_region before changes are
made and signal_after_change when we are done.
We call modify_region before calling remove_properties iff modified == 0,
and we call signal_after_change before returning iff modified != 0. */
for (;;)
{
if (i == 0)
@ -1614,10 +1616,20 @@ Return t if any property was actually removed, nil otherwise. */)
if (LENGTH (i) >= len)
{
if (! interval_has_some_properties_list (properties, i))
return modified ? Qt : Qnil;
if (modified)
{
if (BUFFERP (object))
signal_after_change (XINT (start), XINT (end) - XINT (start),
XINT (end) - XINT (start));
return Qt;
}
else
return Qnil;
if (LENGTH (i) == len)
{
if (!modified && BUFFERP (object))
modify_region (XBUFFER (object), XINT (start), XINT (end));
remove_properties (Qnil, properties, i, object);
if (BUFFERP (object))
signal_after_change (XINT (start), XINT (end) - XINT (start),
@ -1629,6 +1641,8 @@ Return t if any property was actually removed, nil otherwise. */)
unchanged = i;
i = split_interval_left (i, len);
copy_properties (unchanged, i);
if (!modified && BUFFERP (object))
modify_region (XBUFFER (object), XINT (start), XINT (end));
remove_properties (Qnil, properties, i, object);
if (BUFFERP (object))
signal_after_change (XINT (start), XINT (end) - XINT (start),
@ -1636,8 +1650,14 @@ Return t if any property was actually removed, nil otherwise. */)
return Qt;
}
if (interval_has_some_properties_list (properties, i))
{
if (!modified && BUFFERP (object))
modify_region (XBUFFER (object), XINT (start), XINT (end));
remove_properties (Qnil, properties, i, object);
modified = 1;
}
len -= LENGTH (i);
modified += remove_properties (Qnil, properties, i, object);
i = next_interval (i);
}
}