diff options
author | Alan Pearce | 2014-04-25 20:08:41 +0100 |
---|---|---|
committer | Alan Pearce | 2014-04-25 20:08:41 +0100 |
commit | e454ed728cc9dd5b1ec9d678e47846f9a4950c29 (patch) | |
tree | beda3c9ebed7d04aa3e3a814b44fadde2ade2bab | |
parent | fc3143e3756beb78f65d5b70252da3b8e74da9e6 (diff) | |
download | dotfiles-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.el | 5 |
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 |