[nongnu] elpa/webpaste b8eb0ad 052/298: Change while to dolist

[ELPA Syncer]

branch: elpa/webpaste
commit b8eb0adf7419dfcb227e333cfd3450ffb905dad2
Author: Elis Axelsson <elis.axelsson@gmail.com>
Commit: Elis Axelsson <elis.axelsson@gmail.com>

    Change while to dolist
---
 webpaste.el | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/webpaste.el b/webpaste.el
index ce6929c..69e607d 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -151,15 +151,10 @@ When we run out of providers to try, it will restart since
 
   ;; Populate webpaste-provider-priority if needed
   (if (eq webpaste-provider-priority nil)
-      (let ((providers-alist webpaste-providers-alist)
-            (provider-names))
-        ;; Loop local provider list
-        (while providers-alist
-          ;; Add name to list of names
-          (add-to-list 'provider-names (caar providers-alist))
-
-          ;; Depopulate list
-          (setq providers-alist (cdr providers-alist)))
+      (let ((provider-names))
+        ;; Loop provider list
+        (dolist (provider webpaste-providers-alist)
+          (add-to-list 'provider-names (car provider)))
 
         ;; Set names list
         (setq-default webpaste-provider-priority (reverse provider-names))))