[Emacs-diffs] master de75a11: * lisp/subr.el (copy-tree): Handle vector in cdr. (Bug#24876)

[Johan Bockgard]

branch: master
commit de75a1154e9dad334ff1359d7f606c66b2fd2233
Author: Johan Bockgård <address@hidden>
Commit: Johan Bockgård <address@hidden>

    * lisp/subr.el (copy-tree): Handle vector in cdr. (Bug#24876)
---
 lisp/subr.el |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/subr.el b/lisp/subr.el
index ebcb1fd..a713b92 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -514,7 +514,8 @@ argument VECP, this copies vectors as well as conses."
                (setq newcar (copy-tree (car tree) vecp)))
            (push newcar result))
          (setq tree (cdr tree)))
-       (nconc (nreverse result) tree))
+       (nconc (nreverse result)
+               (if (and vecp (vectorp tree)) (copy-tree tree vecp) tree)))
     (if (and vecp (vectorp tree))
        (let ((i (length (setq tree (copy-sequence tree)))))
          (while (>= (setq i (1- i)) 0)