From: Daniel Colascione <dancol@dancol.org>
Date: Fri, 8 Jun 2018 23:21:39 +0000 (-0700)
Subject: Make setting inhibit-startup-screen in early init work
X-Git-Tag: emacs-27.0.90~4908
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1febb42f48cd9906713d2a2f4501a7059d7d171;p=emacs.git

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.
---

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