From ecec411d9ec12acda99f4e0aafadd100e7b03172 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 21 Sep 1997 14:11:37 +0000 Subject: [PATCH] (c-initialize-builtin-style): Don't ever try to use copy-tree. --- lisp/progmodes/cc-styles.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) 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 -- 2.39.2