try to visit symlink for initial-buffer

diff --git a/early-init.el b/early-init.el
index de9661e187dea5fee5e1661eae5937034cefa06b..683dbd92d2936518f12fdf0ef58727cf3bd0c6da 100644 (file)
--- 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