Move function declaration of the get-lang-alist-with-overrides function up

master
Elis Axelsson 9 years ago
parent f0a36e24ca
commit ee5b4ed971
No known key found for this signature in database
GPG Key ID: D57EFA625C9A925F
  1. 28
      webpaste.el

@ -138,6 +138,20 @@ each run.")
(defun webpaste/get-lang-alist-with-overrides (overrides)
"Fetches lang-alist with OVERRIDES applied."
;; Copy original list to temporary list
(let ((lang-alist webpaste/default-lang-alist))
;; Go through list of overrides and append them to the temporary list
(dolist (override-element overrides)
(cl-pushnew override-element lang-alist))
;; Return temporary list
lang-alist))
(cl-defun webpaste-provider (&key uri
post-field
success-lambda
@ -286,20 +300,6 @@ return it to the user."
(defun webpaste/get-lang-alist-with-overrides (overrides)
"Fetches lang-alist with OVERRIDES applied."
;; Copy original list to temporary list
(let ((lang-alist webpaste/default-lang-alist))
;; Go through list of overrides and append them to the temporary list
(dolist (override-element overrides)
(cl-pushnew override-element lang-alist))
;; Return temporary list
lang-alist))
(defun webpaste/get-provider-priority ()
"Return provider priority."

Loading…
Cancel
Save