mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-20 04:50:55 -07:00
Code Issues Projects Releases Wiki 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
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)