diff options
| author | Juri Linkov <juri@jurta.org> | 2008-02-12 23:29:19 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2008-02-12 23:29:19 +0000 |
| commit | 5df71560b0f9c577cd23a56d2a726d50932a5c2a (patch) | |
| tree | 5daac83ab0ac33551dc5aa034c41f8802dcb774e | |
| parent | 558ca3c1225f6035442733d5d3fb5fd4c40a0a45 (diff) | |
| download | emacs-5df71560b0f9c577cd23a56d2a726d50932a5c2a.tar.gz | |
(fancy-startup-screen, normal-splash-screen):
Set default-directory to command-line-default-directory.
| -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 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) |