mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/subr.el (copy-tree): Handle vector in cdr. (Bug#24876)

Browse source
This commit is contained in:
Johan Bockgård 2016-11-05 16:31:22 +01:00
parent f95bf3cd1f
commit de75a1154e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/subr.el
View file

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