# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1023699774 0
# Node ID b2a7c08cddcf7215efb6f4d6589c1b049ed41707
# Parent  4e576724db9fc7b29850b673989bf657769a08d0
(eshell-copy-tree): Make it an alias for copy-tree.

diff -r 4e576724db9f -r b2a7c08cddcf lisp/eshell/esh-util.el
--- a/lisp/eshell/esh-util.el	Mon Jun 10 09:01:08 2002 +0000
+++ b/lisp/eshell/esh-util.el	Mon Jun 10 09:02:54 2002 +0000
@@ -710,23 +710,7 @@
 		      (setq entry nil)))))))
       (or entry (funcall handler 'file-attributes file)))))
 
-(defun eshell-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-sequence tree))))
-	(while (consp p)
-	  (if (or (consp (car p)) (and vecp (vectorp (car p))))
-	      (setcar p (eshell-copy-tree (car p) vecp)))
-	  (or (listp (cdr p)) (setcdr p (eshell-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 (eshell-copy-tree (aref tree i) vecp))))))
-  tree)
+(defalias 'eshell-copy-tree 'copy-tree)
 
 (defsubst eshell-processp (proc)
   "If the `processp' function does not exist, PROC is not a process."