From f4a4c856ec299b6517b47a057fbd86c2d98d57f8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 19 Sep 1997 04:30:28 +0000 Subject: [PATCH] (c-initialize-builtin-style): Copy the whole tree instead of just copy-sequence. --- lisp/progmodes/cc-styles.el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/cc-styles.el b/lisp/progmodes/cc-styles.el index 08b5fae35f6..5d467e669f7 100644 --- a/lisp/progmodes/cc-styles.el +++ b/lisp/progmodes/cc-styles.el @@ -570,14 +570,24 @@ offset for that syntactic element. Optional ADD says to add SYMBOL to ;; variables first to the `cc-mode' style before instituting the new ;; style. Only do this once! (or (assoc "cc-mode" c-style-alist) - (progn + (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)))) (c-add-style "cc-mode" (mapcar (function (lambda (var) (let ((val (symbol-value var))) - (cons var (if (atom val) val - (copy-sequence val))) + (cons var (if (atom val) + val + (funcall copyfunc val) + )) ))) '(c-backslash-column c-basic-offset -- 2.39.5