Emacs: use *init-file* to track the location of init.el through symlinks
Alan Pearce alan@alanpearce.co.uk
Sun, 02 Jun 2013 10:50:05 +0100
1 files changed, 5 insertions(+), 2 deletions(-)
jump to
M emacs/init.el → emacs/init.el
@@ -41,6 +41,9 @@ (defun env/recheck-location () (interactive) (setq env/location (env/get-location))) +(defvar *init-file* (expand-file-name "init.el" (file-name-directory (file-truename user-init-file))) + "Where the emacs init file really is, passing through symlinks.") + ;;;; Package Management (eval-and-compile (setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/") @@ -466,7 +469,7 @@ (unbind-key "C-x C-c") (bind-key "C-c i" #'ucs-insert) -(set-register ?e `(file . ,user-init-file)) +(set-register ?e `(file . ,*init-file*)) ;; Enable narrowing functions C-x n (put 'narrow-to-defun 'disabled nil) @@ -919,7 +922,7 @@ (narrow-to-region (region-beginning) (region-end)))) (defun init-imenu (p) (interactive "P") - (find-file-existing "~/dotfiles/emacs/init.el") + (find-file-existing *init-file*) (widen) (helm-imenu) (if p (init-narrow-to-section)))