unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* Startup screen default directory
@ 2008-02-10 23:29 Juri Linkov
  2008-02-11 13:34 ` Richard Stallman
  0 siblings, 1 reply; 9+ messages in thread
From: Juri Linkov @ 2008-02-10 23:29 UTC (permalink / raw)
  To: emacs-devel

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/




^ permalink raw reply	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2008-02-13  2:21 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-02-10 23:29 Startup screen default directory Juri Linkov
2008-02-11 13:34 ` Richard Stallman
2008-02-12  0:14   ` Juri Linkov
2008-02-12  1:48     ` Robert J. Chassell
2008-02-12 21:30       ` Juri Linkov
2008-02-12 22:31         ` Stefan Monnier
2008-02-12 23:42           ` Juri Linkov
2008-02-13  2:21         ` Robert J. Chassell
2008-02-12  3:51     ` Richard Stallman

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).