# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1023699863 0
# Node ID 70b4c348d1748141b3267e94a8fb7032ab1e3a42
# Parent  b2a7c08cddcf7215efb6f4d6589c1b049ed41707
(ebrowse-draw-tree-fn): Use copy-sequence.
(ebrowse-copy-list): Function deleted.

diff -r b2a7c08cddcf -r 70b4c348d174 lisp/progmodes/ebrowse.el
--- a/lisp/progmodes/ebrowse.el	Mon Jun 10 09:02:54 2002 +0000
+++ b/lisp/progmodes/ebrowse.el	Mon Jun 10 09:04:23 2002 +0000
@@ -255,11 +255,6 @@
     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 @@
   "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 @@
 	;; 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)))))