branch: externals/compat
commit 576ede78bb782d6eadc1a96b77d9b25e492cdd73
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Fix add-display-text-property
---
compat-29.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/compat-29.el b/compat-29.el
index 1141a7f1ff..0d3b5b5cae 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -448,7 +448,7 @@ this defaults to the current buffer."
(cond
((vectorp disp)
(setq vector t)
- (seq-into disp 'list))
+ (append disp nil))
((not (consp (car disp)))
(list disp))
(t
@@ -458,7 +458,7 @@ this defaults to the current buffer."
(setq disp (delete old disp)))
(setq disp (cons (list prop value) disp))
(when vector
- (setq disp (seq-into disp 'vector)))
+ (setq disp (vconcat disp)))
;; Finally update the range.
(put-text-property sub-start sub-end 'display disp object)))
(setq sub-start sub-end))))
