Commit 68b08950 authored by Miles Bader's avatar Miles Bader
Browse files

(copy-tree): Use `nconc' and `nreverse' instead of `nreconc'.

parent 216640c5
2002-06-14 Miles Bader <miles@gnu.org>
* subr.el (copy-tree): Use `nconc' and `nreverse' instead of `nreconc'.
2002-06-13 Richard M. Stallman <rms@gnu.org> 2002-06-13 Richard M. Stallman <rms@gnu.org>
* play/zone.el (zone-timer): New variable holds the idle timer. * play/zone.el (zone-timer): New variable holds the idle timer.
......
...@@ -204,7 +204,7 @@ argument VECP, this copies vectors as well as conses." ...@@ -204,7 +204,7 @@ argument VECP, this copies vectors as well as conses."
(setq newcar (copy-tree (car tree) vecp))) (setq newcar (copy-tree (car tree) vecp)))
(push newcar result)) (push newcar result))
(setq tree (cdr tree))) (setq tree (cdr tree)))
(nreconc result tree)) (nconc (nreverse result) tree))
(if (and vecp (vectorp tree)) (if (and vecp (vectorp tree))
(let ((i (length (setq tree (copy-sequence tree))))) (let ((i (length (setq tree (copy-sequence tree)))))
(while (>= (setq i (1- i)) 0) (while (>= (setq i (1- i)) 0)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment