Mercurial > emacs

changeset 18845:a64fd9cec691

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(c-initialize-builtin-style): Use copy-sequence instead of c-copy-tree. (c-copy-tree): Function deleted.
author Richard M. Stallman <rms@gnu.org>
date Fri, 18 Jul 1997 02:12:00 +0000
parents 6b269c4ad2eb
children 2cab1579e3f6
files lisp/progmodes/cc-styles.el
diffstat 1 files changed, 2 insertions(+), 21 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/cc-styles.el	Fri Jul 18 02:11:28 1997 +0000
+++ b/lisp/progmodes/cc-styles.el	Fri Jul 18 02:12:00 1997 +0000
@@ -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 @@
 		       (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 @@
 	;; 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,