diff options
| -rw-r--r-- | lisp/startup.el | 2 |
1 files changed, 2 insertions, 0 deletions
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) |