Mercurial > emacs
changeset 13779:5abcd2653057
(add_properties, remove_properties, set_properties):
Call signal_after_change.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 21 Dec 1995 17:14:30 +0000 |
| parents | 7b2f71009e4c |
| children | 732a8bd9c552 |
| files | src/textprop.c |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/textprop.c Thu Dec 21 17:13:56 1995 +0000 +++ b/src/textprop.c Thu Dec 21 17:14:30 1995 +0000 @@ -304,6 +304,8 @@ record_property_change (interval->position, LENGTH (interval), XCONS (sym)->car, XCONS (value)->car, object); + signal_after_change (interval->position, LENGTH (interval), + LENGTH (interval)); } /* For each new property that has no value at all in the old plist, @@ -319,6 +321,8 @@ record_property_change (interval->position, LENGTH (interval), XCONS (sym)->car, Qnil, object); + signal_after_change (interval->position, LENGTH (interval), + LENGTH (interval)); } } @@ -386,6 +390,7 @@ make_number (i->position + LENGTH (i))); record_property_change (i->position, LENGTH (i), sym1, Fcar (this_cdr), object); + signal_after_change (i->position, LENGTH (i), LENGTH (i)); } /* I's property has a different value -- change it */ @@ -404,6 +409,7 @@ make_number (i->position + LENGTH (i))); record_property_change (i->position, LENGTH (i), sym1, Qnil, object); + signal_after_change (i->position, LENGTH (i), LENGTH (i)); } i->plist = Fcons (sym1, Fcons (val1, i->plist)); changed++; @@ -445,6 +451,7 @@ record_property_change (i->position, LENGTH (i), sym, Fcar (Fcdr (current_plist)), object); + signal_after_change (i->position, LENGTH (i), LENGTH (i)); } current_plist = Fcdr (Fcdr (current_plist)); @@ -466,6 +473,7 @@ make_number (i->position + LENGTH (i))); record_property_change (i->position, LENGTH (i), sym, Fcar (Fcdr (this)), object); + signal_after_change (i->position, LENGTH (i), LENGTH (i)); } Fsetcdr (Fcdr (tail2), Fcdr (Fcdr (this)));