From: Miles Bader <miles@gnu.org>
Date: Fri, 14 Jun 2002 05:49:03 +0000 (+0000)
Subject: (copy-tree): Use `nconc' and `nreverse' instead of `nreconc'.
X-Git-Tag: ttn-vms-21-2-B4~14618
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68b089509064b72993915350714b5282b60ec7a7;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a87506ec725..25ad58cd136 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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>
 
 	* play/zone.el (zone-timer): New variable holds the idle timer.
diff --git a/lisp/subr.el b/lisp/subr.el
index b565d8ef7c9..648ff0de3e3 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -204,7 +204,7 @@ argument VECP, this copies vectors as well as conses."
 		(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)