fix(emacs): don't import TERM from systemd
This commit is contained in:
@@ -249,6 +249,7 @@ form."
|
|||||||
|
|
||||||
(defun syd-import-systemd-environment ()
|
(defun syd-import-systemd-environment ()
|
||||||
(interactive)
|
(interactive)
|
||||||
|
(let ((blacklist '("TERM")))
|
||||||
(with-temp-buffer
|
(with-temp-buffer
|
||||||
(shell-command "systemctl --user show-environment" (current-buffer))
|
(shell-command "systemctl --user show-environment" (current-buffer))
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
@@ -262,6 +263,7 @@ form."
|
|||||||
(let ((var (match-string 1))
|
(let ((var (match-string 1))
|
||||||
(val (or (match-string 2)
|
(val (or (match-string 2)
|
||||||
(match-string 3))))
|
(match-string 3))))
|
||||||
(setenv var val)))))
|
(unless (member var blacklist)
|
||||||
|
(setenv var val)))))))
|
||||||
|
|
||||||
(provide 'syd/prelude)
|
(provide 'syd/prelude)
|
||||||
|
|||||||
Reference in New Issue
Block a user