mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(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)) (cons (copy-tree (car tree))
(copy-tree (cdr tree))) (copy-tree (cdr tree)))
(if (vectorp tree) (if (vectorp tree)
(let ((new (copy-sequence tree)) (let* ((new (copy-sequence tree))
(i (1- (length new)))) (i (1- (length new))))
(while (>= i 0) (while (>= i 0)
(aset new i (copy-tree (aref new i))) (aset new i (copy-tree (aref new i)))
(setq i (1- i))) (setq i (1- i)))