[nongnu] elpa/webpaste d9529de 112/298: Replaced (if (eq VAR nil)) with (unless VAR)

[ELPA Syncer]

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

    Replaced (if (eq VAR nil)) with (unless VAR)
---
 webpaste.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/webpaste.el b/webpaste.el
index 0c7450b..638969d 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -105,8 +105,8 @@ Usage:
              :error
              (cl-function (lambda (&key error-thrown &allow-other-keys)
                             (message "Got error: %S" error-thrown)
-                            (if (eq no-failover nil)
-                                (webpaste-paste-text text)))))
+                            (unless no-failover
+                              (webpaste-paste-text text)))))
     nil))
 
 
@@ -182,14 +182,14 @@ return it to the user."
   "Return provider priority."
 
   ;; Populate webpaste-provider-priority if needed
-  (if (eq webpaste-provider-priority nil)
-      (let ((provider-names))
-        ;; Loop provider list
-        (dolist (provider webpaste-providers-alist)
-          (cl-pushnew (car provider) provider-names))
+  (unless webpaste-provider-priority
+    (let ((provider-names))
+      ;; Loop provider list
+      (dolist (provider webpaste-providers-alist)
+        (cl-pushnew (car provider) provider-names))
 
-        ;; Set names list
-        (setq-default webpaste-provider-priority (reverse provider-names))))
+      ;; Set names list
+      (setq-default webpaste-provider-priority (reverse provider-names))))
 
   webpaste-provider-priority)
 
@@ -236,8 +236,8 @@ When we run out of providers to try, it will restart since
 ‘webpaste-tested-providers’ will be empty and then populated again."
 
   ;; Populate tested providers for this request if needed
-  (if (eq webpaste-tested-providers nil)
-      (setq webpaste-tested-providers (webpaste/get-provider-priority)))
+  (unless webpaste-tested-providers
+    (setq webpaste-tested-providers (webpaste/get-provider-priority)))
 
   ;; Get name of provider at the top of the list
   (let ((provider-name (car webpaste-tested-providers)))