mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(fancy-startup-screen, normal-splash-screen):

Browse Source 
Set default-directory to command-line-default-directory.
This commit is contained in:
Juri Linkov 2008-02-12 23:41:08 +00:00
parent 34a3c5871c
commit 4222d0a4f3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/startup.el
View File

@ -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)