diff options
| author | Johan Bockgård | 2016-11-05 16:31:22 +0100 |
|---|---|---|
| committer | Johan Bockgård | 2016-11-05 16:36:12 +0100 |
| commit | de75a1154e9dad334ff1359d7f606c66b2fd2233 (patch) | |
| tree | 0f08e9bf7476e25c0c871b98faf8faa551281eae /lisp | |
| parent | f95bf3cd1f55cf8f99b88c7318c21c967b11dfd1 (diff) | |
| download | emacs-de75a1154e9dad334ff1359d7f606c66b2fd2233.tar.gz emacs-de75a1154e9dad334ff1359d7f606c66b2fd2233.zip | |
* lisp/subr.el (copy-tree): Handle vector in cdr. (Bug#24876)
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 514 | (setq newcar (copy-tree (car tree) vecp))) | 514 | (setq newcar (copy-tree (car tree) vecp))) |
| 515 | (push newcar result)) | 515 | (push newcar result)) |
| 516 | (setq tree (cdr tree))) | 516 | (setq tree (cdr tree))) |
| 517 | (nconc (nreverse result) tree)) | 517 | (nconc (nreverse result) |
| 518 | (if (and vecp (vectorp tree)) (copy-tree tree vecp) tree))) | ||
| 518 | (if (and vecp (vectorp tree)) | 519 | (if (and vecp (vectorp tree)) |
| 519 | (let ((i (length (setq tree (copy-sequence tree))))) | 520 | (let ((i (length (setq tree (copy-sequence tree))))) |
| 520 | (while (>= (setq i (1- i)) 0) | 521 | (while (>= (setq i (1- i)) 0) |