Mercurial > emacs
changeset 18811:72482000aa9d
(c-copy-tree): Fix bugs.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 15 Jul 1997 19:09:24 +0000 |
| parents | de905e8be2e0 |
| children | 82c80b23fa9d |
| files | lisp/progmodes/cc-styles.el |
| diffstat | 1 files changed, 11 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/cc-styles.el Tue Jul 15 19:07:02 1997 +0000 +++ b/lisp/progmodes/cc-styles.el Tue Jul 15 19:09:24 1997 +0000 @@ -579,23 +579,23 @@ ;; 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.