diff options
author | Richard M. Stallman <[email protected]> | 2002-06-10 09:02:54 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2002-06-10 09:02:54 +0000 |
commit | efbddb8e15e38b64460216dbef17208b5660d414 (patch) | |
tree | f89ba7054806af371645ecb49fd5de9255503d64 /lisp | |
parent | cfebd4db43b449b6bee133066de78346151a7e5c (diff) |
(eshell-copy-tree): Make it an alias for copy-tree.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/eshell/esh-util.el | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el index c73d094020..ef4bcda31a 100644 --- a/lisp/eshell/esh-util.el +++ b/lisp/eshell/esh-util.el @@ -710,23 +710,7 @@ Unless optional argument INPLACE is non-nil, return a new string." (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." |