try to visit symlink for initial-buffer

2 years ago · 70fb19b96b
parent a8000da62a
commit 70fb19b96b
1 changed files with 7 additions and 0 deletions
--- a/early-init.el
+++ b/early-init.el
@ -5,6 +5,13 @@
      custom-file (file-name-concat user-emacs-directory "custom.el")
      custom-theme-directory (file-name-concat user-emacs-directory "themes/")
      debugger 'edebug
+      initial-buffer-choice (lambda ()
+                       (let ((initial-file (file-name-concat
+                                            user-emacs-directory
+                                            "initial-buffer")))
+                         (if (file-exists-p initial-file)
+                             (find-file initial-file)
+                           (get-buffer-create "*scratch*"))))
      enable-local-variables :safe
      inferior-lisp-program "sbcl"
      inhibit-splash-screen t