diff options
| author | Lars Ingebrigtsen | 2019-10-12 23:35:26 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-10-12 23:35:26 +0200 |
| commit | 4c9468884c8cb7093e258396acda5a7fb3e09a48 (patch) | |
| tree | 7a654f2503377ad748859df062824d6d750e9cf7 | |
| parent | 6c677a101d16cffd1e59acf090c4769561f82a53 (diff) | |
| download | emacs-4c9468884c8cb7093e258396acda5a7fb3e09a48.tar.gz emacs-4c9468884c8cb7093e258396acda5a7fb3e09a48.zip | |
Make Fadd_face_text_property even less destructive
* src/textprop.c (Fadd_face_text_property): We need to be
non-destructive in buffers, too, because face properties may have
been added with `put-text-property' as a list that's been reused.
| -rw-r--r-- | src/textprop.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/textprop.c b/src/textprop.c index 13cd87ac473..93d19754da5 100644 --- a/src/textprop.c +++ b/src/textprop.c | |||
| @@ -1351,7 +1351,7 @@ into it. */) | |||
| 1351 | (NILP (append) | 1351 | (NILP (append) |
| 1352 | ? TEXT_PROPERTY_PREPEND | 1352 | ? TEXT_PROPERTY_PREPEND |
| 1353 | : TEXT_PROPERTY_APPEND), | 1353 | : TEXT_PROPERTY_APPEND), |
| 1354 | !STRINGP (object)); | 1354 | false); |
| 1355 | return Qnil; | 1355 | return Qnil; |
| 1356 | } | 1356 | } |
| 1357 | 1357 | ||