From b8eb0adf7419dfcb227e333cfd3450ffb905dad2 Mon Sep 17 00:00:00 2001 From: Elis Axelsson Date: Sat, 8 Oct 2016 22:24:32 +0200 Subject: [PATCH] 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))))