From: Juri Linkov <juri@jurta.org>
Date: Tue, 12 Feb 2008 23:30:33 +0000 (+0000)
Subject: (after-init-hook): Set inhibit-startup-screen to t
X-Git-Tag: emacs-pretest-22.1.91~28
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c9702c3e88137e8e0b51964b4ab5f8de5ff0814;p=emacs.git

(after-init-hook): Set inhibit-startup-screen to t
after reading the desktop.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49706f3c0aa..dc940e64ab9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2008-02-12  Juri Linkov  <juri@jurta.org>
+
+	* startup.el (fancy-startup-screen, normal-splash-screen):
+	Set default-directory to command-line-default-directory.
+
+	* desktop.el (after-init-hook): Set inhibit-startup-screen to t
+	after reading the desktop.
+
 2008-02-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* font-lock.el (font-lock-set-defaults): Unset previously set variables
diff --git a/lisp/desktop.el b/lisp/desktop.el
index 61db03e8c86..8be86571f13 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -1289,7 +1289,9 @@ If there are no buffers left to create, kill the timer."
       (when (member key command-line-args)
         (setq command-line-args (delete key command-line-args))
         (setq desktop-save-mode nil)))
-    (when desktop-save-mode (desktop-read))))
+    (when desktop-save-mode
+      (desktop-read)
+      (setq inhibit-startup-screen t))))
 
 (provide 'desktop)