(cl-copy-tree): Doc fix.

This commit is contained in:
Karl Heuer 1996-01-04 23:29:58 +00:00
parent 3b526baee9
commit 66ac65bdea

View file

@ -588,7 +588,7 @@ If START or END is negative, it counts from the end."
(defun cl-copy-tree (tree &optional vecp) (defun cl-copy-tree (tree &optional vecp)
"Make a copy of TREE. "Make a copy of TREE.
If TREE is a cons cell, this recursively copies both its car and its cdr. If TREE is a cons cell, this recursively copies both its car and its cdr.
Constrast to copy-sequence, which copies only along the cdrs. With second Contrast to copy-sequence, which copies only along the cdrs. With second
argument VECP, this copies vectors as well as conses." argument VECP, this copies vectors as well as conses."
(if (consp tree) (if (consp tree)
(let ((p (setq tree (copy-list tree)))) (let ((p (setq tree (copy-list tree))))