Replaced (if (eq VAR nil)) with (unless VAR)

master
Elis Axelsson 9 years ago
parent 4dd2e1b570
commit d9529de05d
No known key found for this signature in database
GPG Key ID: D57EFA625C9A925F
  1. 22
      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)))

Loading…
Cancel
Save