diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-21 14:11:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-21 14:11:37 +0000 |
| commit | ecec411d9ec12acda99f4e0aafadd100e7b03172 (patch) | |
| tree | 3af14945720f356d44fec88597781af6c5c658a9 | |
| parent | 2b38b48703ee174c53671111585f672013ccb19a (diff) | |
| download | emacs-ecec411d9ec12acda99f4e0aafadd100e7b03172.tar.gz | |
(c-initialize-builtin-style): Don't ever try to use copy-tree.
| -rw-r--r-- | lisp/progmodes/cc-styles.el | 13 |
1 files 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 |