[elpa] externals/compat 576ede78bb 07/10: Fix add-display-text-property

[ELPA Syncer]

branch: externals/compat
commit 576ede78bb782d6eadc1a96b77d9b25e492cdd73
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    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))))