From: Colin Walters <walters@gnu.org>
Date: Sat, 8 Jun 2002 22:32:06 +0000 (+0000)
Subject: (cl-copy-tree): Moved to `copy-tree' in subr.el.  Add a defalias with
X-Git-Tag: ttn-vms-21-2-B4~14716
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f050de0b349401f546b4624cbf957b6aff00144;p=emacs.git

(cl-copy-tree): Moved to `copy-tree' in subr.el.  Add a defalias with
the old name.
---

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index 194f6c6d9b4..ac206a84afd 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -565,24 +565,7 @@ If START or END is negative, it counts from the end."
     (setq list (cdr list)))
   (if (numberp sublist) (equal sublist list) (eq sublist list)))
 
-(defun cl-copy-tree (tree &optional vecp)
-  "Make a copy of TREE.
-If TREE is a cons cell, this recursively copies both its car and its cdr.
-Contrast to copy-sequence, which copies only along the cdrs.  With second
-argument VECP, this copies vectors as well as conses."
-  (if (consp tree)
-      (let ((p (setq tree (copy-list tree))))
-	(while (consp p)
-	  (if (or (consp (car p)) (and vecp (vectorp (car p))))
-	      (setcar p (cl-copy-tree (car p) vecp)))
-	  (or (listp (cdr p)) (setcdr p (cl-copy-tree (cdr p) vecp)))
-	  (cl-pop p)))
-    (if (and vecp (vectorp tree))
-	(let ((i (length (setq tree (copy-sequence tree)))))
-	  (while (>= (setq i (1- i)) 0)
-	    (aset tree i (cl-copy-tree (aref tree i) vecp))))))
-  tree)
-(defalias 'copy-tree 'cl-copy-tree)
+(defalias 'cl-copy-tree 'copy-tree)
 
 
 ;;; Property lists.