procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(copy-list): Moved to subr.el.

Browse source
This commit is contained in:
Colin Walters 2002-06-08 21:42:00 +00:00
parent a8f5766042
commit 06bc5dbf8e
1 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/cl.el
View file

@ -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)