procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(copy-tree): Use let* to bind new before i.

Browse source
This commit is contained in:
Richard M. Stallman 1993-06-01 06:03:56 +00:00
parent 3aa7cce7e4
commit 7dce3709b4
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/lucid.el
View file

@ -29,8 +29,8 @@
(cons (copy-tree (car tree))
(copy-tree (cdr tree)))
(if (vectorp tree)
(let ((new (copy-sequence tree))
(i (1- (length new))))
(let* ((new (copy-sequence tree))
(i (1- (length new))))
(while (>= i 0)
(aset new i (copy-tree (aref new i)))
(setq i (1- i)))