From de75a1154e9dad334ff1359d7f606c66b2fd2233 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Johan=20Bockg=C3=A5rd?= Date: Sat, 5 Nov 2016 16:31:22 +0100 Subject: [PATCH] * 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 ebcb1fd4b82..a713b92c6cd 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) -- 2.39.5