Change from add-to-list to cl-pushnew

10 years ago · abe4fd5c4d
parent b8eb0adf74
commit abe4fd5c4d
1 changed files with 1 additions and 1 deletions
--- a/webpaste.el
+++ b/webpaste.el
@ -154,7 +154,7 @@ When we run out of providers to try, it will restart since
      (let ((provider-names))
        ;; Loop provider list
        (dolist (provider webpaste-providers-alist)
-          (add-to-list 'provider-names (car provider)))
+          (cl-pushnew (car provider) provider-names))
        ;; Set names list
        (setq-default webpaste-provider-priority (reverse provider-names))))