From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 15 Jul 1997 19:09:24 +0000 (+0000)
Subject: (c-copy-tree): Fix bugs.
X-Git-Tag: emacs-20.1~1135
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0c23721e86124e61288b3c0c51c5846c73ccb16;p=emacs.git

(c-copy-tree): Fix bugs.
---

diff --git a/lisp/progmodes/cc-styles.el b/lisp/progmodes/cc-styles.el
index 8d823fe65d4..d9943b39236 100644
--- a/lisp/progmodes/cc-styles.el
+++ b/lisp/progmodes/cc-styles.el
@@ -579,23 +579,23 @@ 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 &optional vecp)
+(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 (setq tree (copy-list tree))))
+      (let ((p tree) result)
 	(while (consp p)
-	  (if (or (consp (car p)) (and vecp (vectorp (car p))))
-	      (setcar p (c-copy-tree (car p) vecp)))
-	  (or (listp (cdr p)) (setcdr p (c-copy-tree (cdr p) vecp)))
-	  (setq p (cdr p))))
-    (if (and vecp (vectorp tree))
-	(let ((i (length (setq tree (copy-sequence tree)))))
-	  (while (>= (setq i (1- i)) 0)
-	    (aset tree i (c-copy-tree (aref tree i) vecp))))))
-  tree)
+	  (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.