diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-11-18 16:22:42 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-11-18 16:22:42 +0000 |
commit | a099c300cb6880b55cd7d5fc96b35338d3995ce3 (patch) | |
tree | 15dbab3a7a727ccc3a8ff7b6b6ebdcd0e25ef0da /src | |
parent | 1b3ce8f57f98099be010d44fad2249bd27f314eb (diff) | |
download | emacs-a099c300cb6880b55cd7d5fc96b35338d3995ce3.tar.gz |
(Fset_text_properties): Call set_properties
even if we also merge an interval.
Diffstat (limited to 'src')
-rw-r--r-- | src/textprop.c | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/src/textprop.c b/src/textprop.c index b071b347508..a4f697810ed 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -1030,19 +1030,23 @@ is the string or buffer containing the text.") if (LENGTH (i) > len) i = split_interval_left (i, len); - if (NULL_INTERVAL_P (prev_changed)) - set_properties (props, i, object); - else + /* We have to call set_properties even if we are going to + merge the intervals, so as to make the undo records + and cause redisplay to happen. */ + set_properties (props, i, object); + if (!NULL_INTERVAL_P (prev_changed)) merge_interval_left (i); return Qt; } len -= LENGTH (i); + + /* We have to call set_properties even if we are going to + merge the intervals, so as to make the undo records + and cause redisplay to happen. */ + set_properties (props, i, object); if (NULL_INTERVAL_P (prev_changed)) - { - set_properties (props, i, object); - prev_changed = i; - } + prev_changed = i; else prev_changed = i = merge_interval_left (i); |