From d1febb42f48cd9906713d2a2f4501a7059d7d171 Mon Sep 17 00:00:00 2001 From: Daniel Colascione Date: Fri, 8 Jun 2018 16:21:39 -0700 Subject: [PATCH] Make setting inhibit-startup-screen in early init work * lisp/startup.el (command-line): Bind `inhibit-startup-screen' around loading the site file instead of unconditionally resetting it. --- lisp/startup.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 83fd190ea2b..245b9ac5ba4 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1287,11 +1287,10 @@ please check its value") ;; should check init-file-user instead, since that is already set. ;; See cus-edit.el for an example. (if site-run-file - (load site-run-file t t)) - - ;; Sites should not disable this. Only individuals should disable - ;; the startup screen. - (setq inhibit-startup-screen nil) + ;; Sites should not disable the startup screen. + ;; Only individuals should disable the startup screen. + (let ((inhibit-startup-screen inhibit-startup-screen)) + (load site-run-file t t))) ;; Load that user's init file, or the default one, or none. (load-user-init-file -- 2.39.5