From 68b089509064b72993915350714b5282b60ec7a7 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 14 Jun 2002 05:49:03 +0000 Subject: [PATCH] (copy-tree): Use `nconc' and `nreverse' instead of `nreconc'. --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * subr.el (copy-tree): Use `nconc' and `nreverse' instead of `nreconc'. + 2002-06-13 Richard M. Stallman * 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) -- 2.39.5