Fix "read only variable" errors on doom {sync,upgrade}

Relevant to #3844
2020-09-01 15:12:10 -04:00 · 2020-09-01 15:12:10 -04:00 · 5940d931f4
commit 5940d931f4
parent c55391d4ac
1 changed files with 4 additions and 1 deletions
--- a/bin/doom
+++ b/bin/doom
@ -112,7 +112,10 @@
                        "\n  ")))
                "\n}\n"
                (save-match-data
-                  (cl-loop for env in process-environment
+                  (cl-loop for env
+                           in (cl-set-difference process-environment
+                                                 doom--initial-process-environment
+                                                 :test #'equal)
                           if (string-match "^\\([a-zA-Z0-9_]+\\)=\\(.+\\)$" env)
                           concat (format "%s=%s \\\n"
                                          (match-string 1 env)