From 6626e5db64da7ff580b5b7206690a258143d4fae Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 28 Oct 2022 20:02:21 -0500
Subject: Fix initial-buffer-choice function

---
 init.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/init.el b/init.el
index d3071e2..f7dcd7e 100644
--- a/init.el
+++ b/init.el
@@ -20,11 +20,10 @@
         password-cache-expiry (* 60 60)
         initial-buffer-choice (defun +initial-buffer-choose ()
                                 (cond
-                                 ((bound-and-true-p initial-buffer-chosen)
-                                  (other-buffer))
-                                 (:else
-                                  (defvar initial-buffer-chosen t)
-                                  (get-buffer "*scratch*")))))
+                                 ((equal (get-buffer "*Messages*")
+                                         (other-buffer))
+                                  (get-buffer "*scratch*"))
+                                 (:else (other-buffer)))))
   ;; "Safe" variables
   (dolist (var+pred
            '((browse-url-browser-function
-- 
cgit 1.4.1-21-gabe81