From 805976b8bd3ca4e02cb4f832396e1d77d5828631 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 15 May 2020 04:53:59 -0400 Subject: [PATCH] Handle the case where EMACSDIR has no trailing slash --- bin/doom | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/bin/doom b/bin/doom index 9da3f4c96..d2dfce4f1 100755 --- a/bin/doom +++ b/bin/doom @@ -12,7 +12,10 @@ (let* ((loaddir (file-name-directory (file-truename load-file-name))) (emacsdir (getenv "EMACSDIR")) (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)