Mercurial > emacs

changeset 45695:c311225c0346

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(copy-list): Moved to subr.el.
author Colin Walters <walters@gnu.org>
date Sat, 08 Jun 2002 21:42:00 +0000
parents b31ffbdd8d11
children a5b3e8f94dbf
files lisp/emacs-lisp/cl.el
diffstat 1 files changed, 0 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl.el	Sat Jun 08 21:06:40 2002 +0000
+++ b/lisp/emacs-lisp/cl.el	Sat Jun 08 21:42:00 2002 +0000
@@ -514,15 +514,6 @@
       (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)