(ediff-copy-list): Use `defalias' instead of

`fset' and `symbol-function'.

lisp/ChangeLog

+2002-08-05  John Paul Wallington  <jpw@shootybangbang.com>
+
+	* ediff-util.el (ediff-copy-list): Use `defalias' instead of
+	`fset' and `symbol-function'.
+
 2002-08-05  John Wiegley  <johnw@gnu.org>
 
 	* pcomplete.el (pcomplete-entries): Don't set `above-cutoff' to a

lisp/ediff-util.el

@@ -4259,7 +4259,7 @@ Mail anyway? (y or n) ")
     (cdr result)))
 
 (if (fboundp 'copy-sequence)
-    (fset 'ediff-copy-list (symbol-function 'copy-sequence))
+    (defalias 'ediff-copy-list 'copy-sequence)
   (defun ediff-copy-list (list)
     (if (consp list)
       ;;;(let ((res nil))