fix: empty HOME on Windows

This was accidentally removed in 68d8364.

Amend: 68d8364aea
This commit is contained in:
Henrik Lissner 2022-01-28 20:57:09 +01:00
parent 6e19e75748
commit eddaae40e8

View file

@ -53,6 +53,13 @@ envvar will enable this at startup.")
(defconst IS-WINDOWS (memq system-type '(cygwin windows-nt ms-dos))) (defconst IS-WINDOWS (memq system-type '(cygwin windows-nt ms-dos)))
(defconst IS-BSD (or IS-MAC (eq system-type 'berkeley-unix))) (defconst IS-BSD (or IS-MAC (eq system-type 'berkeley-unix)))
(when-let (realhome
(and IS-WINDOWS
(null (getenv-internal "HOME"))
(getenv "USERPROFILE")))
(setenv "HOME" realhome)
(setq abbreviated-home-dir nil))
;; ;;
;;; Directory variables ;;; Directory variables