diff options
| author | Colin Walters <walters@gnu.org> | 2002-06-08 21:42:00 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2002-06-08 21:42:00 +0000 |
| commit | 06bc5dbf8e9e729eeedae6cac07c8f29243b9f2e (patch) | |
| tree | 8e6fe94b4caf18830f628ffcfa4677b0fc5c6da0 /lisp/emacs-lisp | |
| parent | a8f5766042b9b34c48d9c73bbabe62112394279a (diff) | |
| download | emacs-06bc5dbf8e9e729eeedae6cac07c8f29243b9f2e.tar.gz emacs-06bc5dbf8e9e729eeedae6cac07c8f29243b9f2e.tar.bz2 emacs-06bc5dbf8e9e729eeedae6cac07c8f29243b9f2e.zip | |
(copy-list): Moved to subr.el.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index c5d3ef0832e..def4d24188c 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -514,15 +514,6 @@ Thus, `(list* A B C D)' is equivalent to `(nconc (list A B C) D)', or to (push (pop list) res)) (nreverse res))) -(defun copy-list (list) - "Return a copy of a list, which may be a dotted list. -The elements of the list are not copied, just the list structure itself." - (if (consp list) - (let ((res nil)) - (while (consp list) (push (pop list) res)) - (prog1 (nreverse res) (setcdr res list))) - (car list))) - (defun cl-maclisp-member (item list) (while (and list (not (equal item (car list)))) (setq list (cdr list))) list) |