From e454ed728cc9dd5b1ec9d678e47846f9a4950c29 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Fri, 25 Apr 2014 20:08:41 +0100
Subject: Emacs: add fallback for init-file when ignored

---
 tag-emacs/emacs.d/init.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'tag-emacs')

diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index 510cd8d0..6ee1f1ec 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
-- 
cgit 1.4.1