Mercurial > emacs
changeset 45741:b2a7c08cddcf
(eshell-copy-tree): Make it an alias for copy-tree.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 10 Jun 2002 09:02:54 +0000 |
| parents | 4e576724db9f |
| children | 70b4c348d174 |
| files | lisp/eshell/esh-util.el |
| diffstat | 1 files changed, 1 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- 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."