@ -287,21 +287,13 @@ return it to the user."
( defun webpaste/get-lang-alist-with-overrides ( overrides )
( defun webpaste/get-lang-alist-with-overrides ( overrides )
" Fetches lang-alist with OVERRIDES applied. "
" Fetches lang-alist with OVERRIDES applied. "
;; Copy original list to temporary list
( let ( ( lang-alist webpaste/default-lang-alist ) )
( let ( ( lang-alist webpaste/default-lang-alist ) )
;; Go through list of overrides
;; Go through list of overrides and append them to the temporary list
( dolist ( override-element overrides )
( dolist ( override-element overrides )
;; Set key and value from override list
( cl-pushnew override-element lang-alist ) )
( let ( ( key ( car override-element ) )
( value ( cdr override-element ) ) )
;; If the element doesn't exist, add it
( unless ( assoc ( car override-element ) lang-alist )
( cl-pushnew ( cons key value ) lang-alist ) )
;; If the element in the list is changed
( unless ( equal ( cdr ( assoc key lang-alist ) ) value )
( cl-pushnew ( cons key value ) lang-alist ) ) ) )
;; Return temporary list
lang-alist ) )
lang-alist ) )