# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1023699652 0
# Node ID af30a5644ebc5c1ce06bc9d36fa49cadaf36579c
# Parent  12bd288850ef0f8e0444dd3c8335787503c89db8
(copy-list): Moved back from subr.el.

diff -r 12bd288850ef -r af30a5644ebc lisp/emacs-lisp/cl.el
--- a/lisp/emacs-lisp/cl.el	Mon Jun 10 08:50:02 2002 +0000
+++ b/lisp/emacs-lisp/cl.el	Mon Jun 10 09:00:52 2002 +0000
@@ -514,6 +514,15 @@
       (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)