From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 10 Jun 2002 09:04:34 +0000 (+0000)
Subject: (ebrowse-draw-tree-fn): Use copy-sequence.
X-Git-Tag: ttn-vms-21-2-B4~14680
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=658397fbde3b8d52d7482ae62b77e5bbb21e7d6d;p=emacs.git

(ebrowse-draw-tree-fn): Use copy-sequence.
(ebrowse-copy-list): Function deleted.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd4ccd1e490..8266110e17c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,21 @@
+2002-06-10  Richard M. Stallman  <rms@gnu.org>
+
+	* progmodes/ebrowse.el (ebrowse-draw-tree-fn): Use copy-sequence.
+	(ebrowse-copy-list): Function deleted.
+
+	* eshell/em-unix.el (eshell/diff): Use copy-sequence.
+
+	* eshell/esh-mode.el (eshell-mode, eshell-mode): Use copy-sequence.
+
+	* eshell/esh-util.el (eshell-copy-list): Function deleted.
+	(eshell-sublist): Use copy-sequence.
+	(eshell-copy-tree): Make it an alias for copy-tree.
+
+	* emacs-lisp/cl.el (copy-list): Moved back from subr.el.
+
+	* subr.el (copy-list): Moved to cl.el.
+	(copy-tree): Don't use copy-list or cl-pop.
+
 2002-06-10  Miles Bader  <miles@gnu.org>
 
 	Make comint use text properties for highlighting instead of overlays:
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 796595e5d39..db49b9bce20 100644
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -255,11 +255,6 @@ This is a destructive operation."
     result))
 
 
-(defun ebrowse-copy-list (list)
-  "Return a shallow copy of LIST."
-  (apply #'list list))
-
-
 (defmacro ebrowse-output (&rest body)
   "Eval BODY with a writable current buffer.
 Preserve buffer's modified state."
@@ -1836,7 +1831,7 @@ TREE denotes the class shown."
   "Display a single class and recursively it's subclasses.
 This function may look weird, but this is faster than recursion."
   (setq stack1 (make-list (length ebrowse--tree) 0)
-	stack2 (ebrowse-copy-list ebrowse--tree))
+	stack2 (copy-sequence ebrowse--tree))
   (loop while stack2
 	as level = (pop stack1)
 	as tree = (pop stack2)
@@ -1879,7 +1874,7 @@ This function may look weird, but this is faster than recursion."
 	;; Push subclasses, if any.
 	(when (ebrowse-ts-subclasses tree)
 	  (setq stack2
-		(nconc (ebrowse-copy-list (ebrowse-ts-subclasses tree)) stack2)
+		(nconc (copy-sequence (ebrowse-ts-subclasses tree)) stack2)
 		stack1
 		(nconc (make-list (length (ebrowse-ts-subclasses tree))
 				  (1+ level)) stack1)))))