# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1028587045 0
# Node ID 341d8797885c0fe9d4fe6756b2e1b9f8e016b87c
# Parent  3dfc781fcf63dcba3e825399be98a48648d17f90
(ediff-copy-list): Use `defalias' instead of
`fset' and `symbol-function'.

diff -r 3dfc781fcf63 -r 341d8797885c lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Aug 05 20:09:37 2002 +0000
+++ b/lisp/ChangeLog	Mon Aug 05 22:37:25 2002 +0000
@@ -1,3 +1,8 @@
+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
diff -r 3dfc781fcf63 -r 341d8797885c lisp/ediff-util.el
--- a/lisp/ediff-util.el	Mon Aug 05 20:09:37 2002 +0000
+++ b/lisp/ediff-util.el	Mon Aug 05 22:37:25 2002 +0000
@@ -4259,7 +4259,7 @@
     (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))