From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 21 Sep 1997 14:11:37 +0000 (+0000)
Subject: (c-initialize-builtin-style): Don't ever try to use copy-tree.
X-Git-Tag: emacs-20.3~3109
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecec411d9ec12acda99f4e0aafadd100e7b03172;p=emacs.git

(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 5d467e669f7..cbe89033b1c 100644
--- 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