(fancy-startup-screen, normal-splash-screen):

Set default-directory to command-line-default-directory.

(fancy-startup-screen, normal-splash-screen):
Set default-directory to command-line-default-directory.
5df71560 · Juri Linkov · 558ca3c1 · 5df71560
Commit 5df71560 authored Feb 12, 2008 by Juri Linkov
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

lisp/startup.el lisp/startup.el +2 -0

No files found.
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1456,6 +1456,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))
@@ -1554,6 +1555,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)