Mercurial > emacs
changeset 45699:5204b7681bdc
(cl-copy-tree): Moved to `copy-tree' in subr.el. Add a defalias with
the old name.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Sat, 08 Jun 2002 22:32:06 +0000 |
| parents | 85a6d63fb018 |
| children | a54155344566 |
| files | lisp/emacs-lisp/cl-extra.el |
| diffstat | 1 files changed, 1 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-extra.el Sat Jun 08 22:12:57 2002 +0000 +++ b/lisp/emacs-lisp/cl-extra.el Sat Jun 08 22:32:06 2002 +0000 @@ -565,24 +565,7 @@ (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.