From cd060d4e5ecd0f53e14d698e8a76f28d2415a20c Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Fri, 4 Aug 2017 15:29:47 +0200
Subject: Emacs: Simplify search for init file

---
 emacs/.emacs.d/init.el | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'emacs/.emacs.d/init.el')

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 924100a6..ef66d647 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -1425,10 +1425,7 @@
 
 ;; #+BEGIN_SRC emacs-lisp
 (defvar *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 init-file))))
+  (file-truename user-init-file)
   "Where the emacs init file really is, passing through symlinks.")
 (set-register ?e `(file . ,*init-file*))
 
-- 
cgit 1.4.1