[nongnu] elpa/undo-fu-session 8f5736061a 42/53: Cleanup: minor change to let-binding use

[ELPA Syncer]

branch: elpa/undo-fu-session
commit 8f5736061a0942fc7839bb587439471fc93968a5
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: minor change to let-binding use
---
 undo-fu-session.el | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/undo-fu-session.el b/undo-fu-session.el
index c896cdae08..e2d7eaad89 100755
--- a/undo-fu-session.el
+++ b/undo-fu-session.el
@@ -152,19 +152,18 @@ ignoring all branches that aren't included in the current 
undo state."
             (let*
               (
                 (cons (cons (undo-fu-session--walk-tree fn (car tree)) nil))
-                (cur cons)
-                cdr)
+                (cur cons))
               (while tree
-                (setq cdr (cdr tree))
-                (cond
-                  ((consp cdr)
-                    (let ((next (cons (undo-fu-session--walk-tree fn (car 
cdr)) nil)))
-                      (setcdr cur next)
-                      (setq cur next)
-                      (setq tree cdr)))
-                  (t
-                    (setcdr cur (undo-fu-session--walk-tree fn cdr))
-                    (setq tree nil))))
+                (let ((cdr (cdr tree)))
+                  (cond
+                    ((consp cdr)
+                      (let ((next (cons (undo-fu-session--walk-tree fn (car 
cdr)) nil)))
+                        (setcdr cur next)
+                        (setq cur next)
+                        (setq tree cdr)))
+                    (t
+                      (setcdr cur (undo-fu-session--walk-tree fn cdr))
+                      (setq tree nil)))))
               cons))
           (t
             value))))