[Emacs-diffs] master d1febb4: Make setting inhibit-startup-screen in early init work

[Daniel Colascione]

branch: master
commit d1febb42f48cd9906713d2a2f4501a7059d7d171
Author: Daniel Colascione <address@hidden>
Commit: Daniel Colascione <address@hidden>

    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 83fd190..245b9ac 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