[nongnu] elpa/treeview a82bc8c5d1 17/25: Removed needless progn around body of while

[ELPA Syncer]

branch: elpa/treeview
commit a82bc8c5d17d1e532cde34c8edcc9a4a5354d3ee
Author: Tilman Rassy <tilman.rassy@googlemail.com>
Commit: Tilman Rassy <tilman.rassy@googlemail.com>

    Removed needless progn around body of while
---
 treeview.el | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/treeview.el b/treeview.el
index 41dfe42253..c8e6f77053 100644
--- a/treeview.el
+++ b/treeview.el
@@ -737,9 +737,8 @@ This is an auxiliary function used in 
`treeview-display-node'."
   (unless (treeview-node-folded-p node)
     (let ( (children (treeview-get-node-children node)) )
       (while children
-        (progn
-          (treeview-set-node-end-after-display (car children))
-          (setq children (cdr children))) ))))
+        (treeview-set-node-end-after-display (car children))
+        (setq children (cdr children)) ))))
 
 (defun treeview-display-node (node &optional append-newline-p)
   "Display NODE, i.e., render it in the current buffer.
@@ -814,9 +813,8 @@ return non-nil if the first argument is less that the 
second with respect to the
         (setq overlay-prop-keys (cdr overlay-prop-keys)) )))
   (let ( (children (treeview-get-node-children node)) )
     (while children
-      (progn
-        (treeview-recursively-remove-overlays (car children))
-        (setq children (cdr children)) ))) )
+      (treeview-recursively-remove-overlays (car children))
+      (setq children (cdr children)) )) )
 
 (defun treeview-undisplay-node (node &optional leave-no-gap)
   "Remove NODE and all its descendents from the display in the buffer.
@@ -891,9 +889,8 @@ If NODE is folded, does nothing."
     (funcall treeview-update-node-children-function node)
     (let ( (children (treeview-get-node-children node)) )
       (while children
-        (progn
-          (treeview-update-node (car children))
-          (setq children (cdr children))) )) ))
+        (treeview-update-node (car children))
+        (setq children (cdr children)) )) ))
 
 (defun treeview-toggle-node-state (node)
   "Unfolds NODE if it is folded, folds it if it is unfolded."