diff options
| author | Juri Linkov <juri@jurta.org> | 2008-02-12 23:41:08 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2008-02-12 23:41:08 +0000 |
| commit | 4222d0a4f34b32d303d9ce998964ef9da3cd21a8 (patch) | |
| tree | 7bb0854e77ce14a8b2a940964f4eff3a98660708 /lisp/startup.el | |
| parent | 34a3c5871ceb01071d4645eb1a042bd0bcc77448 (diff) | |
| download | emacs-4222d0a4f34b32d303d9ce998964ef9da3cd21a8.tar.gz | |
(fancy-startup-screen, normal-splash-screen):
Set default-directory to command-line-default-directory.
Diffstat (limited to 'lisp/startup.el')
| -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) |