(after-init-hook): Set inhibit-startup-screen to t

after reading the desktop.

lisp/ChangeLog

+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

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)