Mercurial > emacs
changeset 80113:5b4e8ae6e892
(fancy-startup-screen, normal-splash-screen):
Set default-directory to command-line-default-directory.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 12 Feb 2008 23:29:19 +0000 |
| parents | c0a87fab3914 |
| children | 371aabe44346 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Tue Feb 12 16:49:21 2008 +0000 +++ b/lisp/startup.el Tue Feb 12 23:29:19 2008 +0000 @@ -1456,6 +1456,7 @@ (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 @@ (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)