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)))