fix(core): correctly handle edge cases in +env-save

abougouffa · Sep 13, 2023 · 6047d92 · 6047d92
1 parent 510c299
commit 6047d92
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/elisp/+minemacs.el b/elisp/+minemacs.el
@@ -411,7 +411,11 @@ Works like `shell-command-to-string' with two differences:
       (insert ";; Adding the rest of the environment variables\n")
       (dolist (env-var env-vars)
         (unless (cl-some (+apply-partially-right #'string-match-p (car env-var)) +env-deny-vars)
-          (insert (format "(setenv \"%s\" \"%s\")\n" (car env-var) (cdr env-var))))))
+          ;; Correctly handle edge cases '\n' and '"'
+          (let ((value (string-replace "\n" "\\n" (string-replace "\"" "\\\"" (cdr env-var)))))
+            (insert (format "(setenv \"%s\" \"%s\")\n"
+                            (car env-var)
+                            (string-replace "\n" "\\n" value)))))))
     (write-file +env-file)))
 
 ;;;###autoload