From 31b2af0a3b7616408a361a93313050d181fc1266 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 18 Jul 1997 02:12:00 +0000 Subject: [PATCH] (c-initialize-builtin-style): Use copy-sequence instead of c-copy-tree. (c-copy-tree): Function deleted. --- lisp/progmodes/cc-styles.el | 23 ++--------------------- 1 file changed, 2 insertions(+), 21 deletions(-) diff --git a/lisp/progmodes/cc-styles.el b/lisp/progmodes/cc-styles.el index d9943b39236..c9f08cd74ff 100644 --- a/lisp/progmodes/cc-styles.el +++ b/lisp/progmodes/cc-styles.el @@ -7,7 +7,7 @@ ;; 1985 Richard M. Stallman ;; Maintainer: cc-mode-help@python.org ;; Created: 22-Apr-1997 (split from cc-mode.el) -;; Version: 5.12 +;; Version: 5.13 ;; Keywords: c languages oop ;; This file is part of GNU Emacs. @@ -561,8 +561,7 @@ offset for that syntactic element. Optional ADD says to add SYMBOL to (lambda (var) (let ((val (symbol-value var))) (cons var (if (atom val) val - (c-copy-tree val) - )) + (copy-sequence val))) ))) '(c-backslash-column c-basic-offset @@ -579,24 +578,6 @@ offset for that syntactic element. Optional ADD says to add SYMBOL to ;; c-mode-common-hook or {c,c++,objc,java}-mode-hook. (c-set-style c-site-default-style)))) -(defun c-copy-tree (tree) - "Make a copy of TREE. -If TREE is a cons cell, this recursively copies both its car and its cdr. -Contrast to copy-sequence, which copies only along the cdrs. With second -argument VECP, this copies vectors as well as conses." - (if (consp tree) - (let ((p tree) result) - (while (consp p) - (setq result (cons (if (consp (car p)) - (c-copy-tree (car p)) - (car p)) - result)) - (setq p (cdr p))) - (if (null p) - (nreverse result) - (nconc (nreverse result) p))) - tree)) - (defun c-make-styles-buffer-local () "Make all CC Mode style variables buffer local. If you edit primarily one style of C (or C++, Objective-C, Java) code, -- 2.11.4.GIT