From 5df71560b0f9c577cd23a56d2a726d50932a5c2a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 12 Feb 2008 23:29:19 +0000 Subject: [PATCH] (fancy-startup-screen, normal-splash-screen): Set default-directory to command-line-default-directory. --- lisp/startup.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index 39a63630fae..1b325db45e7 100644 --- 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) -- 2.39.5