From d4f65b5c5d1fefe0fb12fddb660af86be033631d Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sat, 22 Feb 2025 21:56:07 +0000 Subject: Respect the inhibit-startup-screen custom var for the splash screen --- substrate.el | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/substrate.el b/substrate.el index c58eb4b..2a5c7eb 100644 --- a/substrate.el +++ b/substrate.el @@ -77,21 +77,21 @@ )) (defun substrate-splash-screen () - (setq inhibit-startup-screen t) - (let ((splash-buffer (get-buffer-create "*GNU Emacs*"))) - (with-current-buffer splash-buffer - (let ((inhibit-read-only t)) - (erase-buffer) - (setq default-directory nil) + (unless inhibit-startup-screen + (setq inhibit-startup-screen t) + (let ((splash-buffer (get-buffer-create "*GNU Emacs*"))) + (with-current-buffer splash-buffer + (let ((inhibit-read-only t)) + (erase-buffer) - (mapc #'substrate--insert-centered-line substrate--splash-screen-lines) + (mapc #'substrate--insert-centered-line substrate--splash-screen-lines) - (set-buffer-modified-p nil) - (view-mode-enter nil 'kill-buffer) - (goto-char (point-min)) + (set-buffer-modified-p nil) + (view-mode-enter nil 'kill-buffer) + (goto-char (point-min)) - (switch-to-buffer splash-buffer) - )))) + (switch-to-buffer splash-buffer) + ))))) (add-hook 'emacs-startup-hook #'substrate-splash-screen) -- cgit v1.2.3