From: Juri Linkov <juri@jurta.org>
Date: Tue, 12 Feb 2008 23:41:08 +0000 (+0000)
Subject: (fancy-startup-screen, normal-splash-screen):
X-Git-Tag: emacs-pretest-23.0.90~7972
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4222d0a4f34b32d303d9ce998964ef9da3cd21a8;p=emacs.git

(fancy-startup-screen, normal-splash-screen):
Set default-directory to command-line-default-directory.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 7139b7a5c07..7e030e7f635 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1494,6 +1494,7 @@ splash screen in another window."
     (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))
@@ -1592,6 +1593,7 @@ after Emacs starts.  If STARTUP is nil, display the About screen."
     (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)