# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1202858959 0
# Node ID 5b4e8ae6e8922562f266edb3925481d2ae938b8a
# Parent  c0a87fab39141013a4224fb80372e9a4f404641f
(fancy-startup-screen, normal-splash-screen):
Set default-directory to command-line-default-directory.

diff -r c0a87fab3914 -r 5b4e8ae6e892 lisp/startup.el
--- a/lisp/startup.el	Tue Feb 12 16:49:21 2008 +0000
+++ b/lisp/startup.el	Tue Feb 12 23:29:19 2008 +0000
@@ -1456,6 +1456,7 @@
     (with-current-buffer splash-buffer
       (let ((inhibit-read-only t))
 	(erase-buffer)
+	(setq default-directory command-line-default-directory)
 	(make-local-variable 'startup-screen-inhibit-startup-screen)
 	(if pure-space-overflow
 	    (insert pure-space-overflow-message))
@@ -1554,6 +1555,7 @@
     (with-current-buffer (get-buffer-create "*About GNU Emacs*")
       (setq buffer-read-only nil)
       (erase-buffer)
+      (setq default-directory command-line-default-directory)
       (set (make-local-variable 'tab-width) 8)
       (if (not startup)
 	  (set (make-local-variable 'mode-line-format)