Commit ecec411d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 2b38b487
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment