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

`fset' and `symbol-function'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c85555e01bcef64b56015a86d77b32af7762a8c5..b1cfb2bded5f694724f54a05f3d4d5d0e7c33ea0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/ediff-util.el b/lisp/ediff-util.el
index 95074d6ce47b42900bcd9ca67201e557b3665d25..1e0bcb8cbb3cb9bc6a931fbec4d89b4223a288fc 100644 (file)
--- a/lisp/ediff-util.el
+++ b/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))