fix: envvars in profiles.el not being set

This commit is contained in:
Henrik Lissner 2022-07-28 11:42:02 +02:00
parent df8caf2867
commit 48e3603dfe
No known key found for this signature in database
GPG key ID: B60957CA074D39A3

View file

@ -105,8 +105,8 @@
(condition-case-unless-debug e (condition-case-unless-debug e
(let ((profile-data (cdr (assq (intern profile) (read (current-buffer)))))) (let ((profile-data (cdr (assq (intern profile) (read (current-buffer))))))
(dolist (var profile-data (if profile-data (throw 'found t))) (dolist (var profile-data (if profile-data (throw 'found t)))
(if (eq var 'env) (if (eq (car var) 'env)
(dolist (env var) (setenv (car env) (cdr env))) (dolist (env (cdr var)) (setenv (car env) (cdr env)))
(set (car var) (cdr var))))) (set (car var) (cdr var)))))
(error (error "Failed to parse profiles.el: %s" (error-message-string e)))))) (error (error "Failed to parse profiles.el: %s" (error-message-string e))))))
;; If the requested profile isn't in profiles.el, then see if ;; If the requested profile isn't in profiles.el, then see if