(c-initialize-builtin-style): Don't ever try to use copy-tree.

diff --git a/lisp/progmodes/cc-styles.el b/lisp/progmodes/cc-styles.el
index 5d467e669f7e76e8e6f13bdda72682503aa5f7f1..cbe89033b1cd46b3418e6166a166579e905b9c91 100644 (file)
--- a/lisp/progmodes/cc-styles.el
+++ b/lisp/progmodes/cc-styles.el
@@ -571,14 +571,11 @@ offset for that syntactic element.  Optional ADD says to add SYMBOL to
   ;; style.  Only do this once!
   (or (assoc "cc-mode" c-style-alist)
       (let (copyfunc)
-       ;; use built-in copy-tree if its there.
-       (if (fboundp 'copy-tree)
-           (setq copyfunc (symbol-function 'copy-tree))
-         (setq copyfunc (lambda (tree)
-                           (if (consp tree)
-                               (cons (funcall copyfunc (car tree))
-                                     (funcall copyfunc (cdr tree)))
-                             tree))))
+       (setq copyfunc (lambda (tree)
+                        (if (consp tree)
+                            (cons (funcall copyfunc (car tree))
+                                  (funcall copyfunc (cdr tree)))
+                          tree)))
        (c-add-style "cc-mode"
                     (mapcar
                      (function