Startup screen default directory

[Juri Linkov <juri@jurta.org>]

When desktop-mode is active, then after loading the desktop file and
restoring all saved files, the startup screen have the default directory
set to the directory of the last restored file.  Since the last file is
not visible (only the startup screen is shown), this leaves to wonder
why the default directory of the startup screen is set to some arbitrary
directory.  This is very confusing.  I propose to set the default
directory of the startup screen to the directory where Emacs was run.
Fortunately, there is a special variable that holds this value:

Index: lisp/startup.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/startup.el,v
retrieving revision 1.475
diff -c -r1.475 startup.el
*** lisp/startup.el	7 Feb 2008 14:05:53 -0000	1.475
--- lisp/startup.el	10 Feb 2008 23:28:32 -0000
***************
*** 1490,1495 ****
--- 1490,1496 ----
      (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))
***************
*** 1588,1593 ****
--- 1589,1595 ----
      (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)

-- 
Juri Linkov
http://www.jurta.org/emacs/