mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-01 12:17:25 -05:00
Handle the case where EMACSDIR has no trailing slash
This commit is contained in:
5
bin/doom
5
bin/doom
@ -12,7 +12,10 @@
|
|||||||
(let* ((loaddir (file-name-directory (file-truename load-file-name)))
|
(let* ((loaddir (file-name-directory (file-truename load-file-name)))
|
||||||
(emacsdir (getenv "EMACSDIR"))
|
(emacsdir (getenv "EMACSDIR"))
|
||||||
(user-emacs-directory
|
(user-emacs-directory
|
||||||
(abbreviate-file-name (or emacsdir (expand-file-name "../" loaddir)))))
|
(abbreviate-file-name
|
||||||
|
(if emacsdir
|
||||||
|
(file-name-as-directory emacsdir)
|
||||||
|
(expand-file-name "../" loaddir)))))
|
||||||
|
|
||||||
;;
|
;;
|
||||||
(load (expand-file-name "core/core.el" user-emacs-directory) nil t)
|
(load (expand-file-name "core/core.el" user-emacs-directory) nil t)
|
||||||
|
Reference in New Issue
Block a user