all repos — archive/dotfiles @ e454ed728cc9dd5b1ec9d678e47846f9a4950c29

Superseded by nixfiles

Emacs: add fallback for init-file when ignored
Alan Pearce alan@alanpearce.co.uk
Fri, 25 Apr 2014 20:08:41 +0100
commit

e454ed728cc9dd5b1ec9d678e47846f9a4950c29

parent

fc3143e3756beb78f65d5b70252da3b8e74da9e6

1 files changed, 3 insertions(+), 2 deletions(-)

jump to
M tag-emacs/emacs.d/init.eltag-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