summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAlan Pearce2014-04-25 20:08:41 +0100
committerAlan Pearce2014-04-25 20:08:41 +0100
commite454ed728cc9dd5b1ec9d678e47846f9a4950c29 (patch)
treebeda3c9ebed7d04aa3e3a814b44fadde2ade2bab
parentfc3143e3756beb78f65d5b70252da3b8e74da9e6 (diff)
downloaddotfiles-e454ed728cc9dd5b1ec9d678e47846f9a4950c29.tar.lz
dotfiles-e454ed728cc9dd5b1ec9d678e47846f9a4950c29.tar.zst
dotfiles-e454ed728cc9dd5b1ec9d678e47846f9a4950c29.zip
Emacs: add fallback for init-file when ignored
-rw-r--r--tag-emacs/emacs.d/init.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index 510cd8d..6ee1f1e 100644
--- a/tag-emacs/emacs.d/init.el
+++ b/tag-emacs/emacs.d/init.el
@@ -20,9 +20,10 @@
 ;;;; Environment & Location
 
 (defvar *init-file*
-  (when user-init-file
+  (let ((init-file (or user-init-file
+                       (expand-file-name "init.el" user-emacs-directory))))
     (expand-file-name "init.el"
-                      (file-name-directory (file-truename user-init-file))))
+                      (file-name-directory (file-truename init-file))))
   "Where the emacs init file really is, passing through symlinks.")
 
 ;;;; Package Management