procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1997-09-21 14:11:37 +00:00
parent 2b38b48703
commit ecec411d9e
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/progmodes/cc-styles.el
View file

@ -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