# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1024033731 0
# Node ID 41129d3d126b4964dc92706c73e5289ec119629c
# Parent  460253ac1ce0a84f72b16785cb3cfdb7d0ff13cb
(copy-tree): Use `nconc' and `nreverse' instead of `nreconc'.

diff -r 460253ac1ce0 -r 41129d3d126b lisp/subr.el
--- a/lisp/subr.el	Thu Jun 13 22:27:37 2002 +0000
+++ b/lisp/subr.el	Fri Jun 14 05:48:51 2002 +0000
@@ -204,7 +204,7 @@
 		(setq newcar (copy-tree (car tree) vecp)))
 	    (push newcar result))
 	  (setq tree (cdr tree)))
-	(nreconc result tree))
+	(nconc (nreverse result) tree))
     (if (and vecp (vectorp tree))
 	(let ((i (length (setq tree (copy-sequence tree)))))
 	  (while (>= (setq i (1- i)) 0)