From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: Startup screen default directory Date: Mon, 11 Feb 2008 01:29:16 +0200 Organization: JURTA Message-ID: <87wspce6gj.fsf@jurta.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1202686440 11390 80.91.229.12 (10 Feb 2008 23:34:00 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 10 Feb 2008 23:34:00 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Feb 11 00:34:22 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JOLgj-0001nd-S5 for ged-emacs-devel@m.gmane.org; Mon, 11 Feb 2008 00:34:22 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JOLgG-0006pE-La for ged-emacs-devel@m.gmane.org; Sun, 10 Feb 2008 18:33:52 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JOLfY-00060d-HO for emacs-devel@gnu.org; Sun, 10 Feb 2008 18:33:08 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JOLfX-0005zw-Oh for emacs-devel@gnu.org; Sun, 10 Feb 2008 18:33:08 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JOLfX-0005zf-Fl for emacs-devel@gnu.org; Sun, 10 Feb 2008 18:33:07 -0500 Original-Received: from relay01.kiev.sovam.com ([62.64.120.200]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1JOLfW-0000Wa-TO for emacs-devel@gnu.org; Sun, 10 Feb 2008 18:33:07 -0500 Original-Received: from [83.170.232.243] (helo=smtp.svitonline.com) by relay01.kiev.sovam.com with esmtp (Exim 4.67) (envelope-from ) id 1JOLfP-000H0w-4O for emacs-devel@gnu.org; Mon, 11 Feb 2008 01:33:05 +0200 User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux) X-Scanner-Signature: bf674e48040b805769da4ba4af5b826b X-DrWeb-checked: yes X-SpamTest-Envelope-From: juri@jurta.org X-SpamTest-Group-ID: 00000000 X-SpamTest-Header: Not Detected X-SpamTest-Info: Profiles 2212 [Feb 10 2008] X-SpamTest-Info: helo_type=3 X-SpamTest-Info: {HEADERS: header Content-Type found without required header Content-Transfer-Encoding} X-SpamTest-Method: none X-SpamTest-Rate: 11 X-SpamTest-Status: Not detected X-SpamTest-Status-Extended: not_detected X-SpamTest-Version: SMTP-Filter Version 3.0.0 [0255], KAS30/Release X-detected-kernel: by monty-python.gnu.org: FreeBSD 4.8-5.1 (or MacOS X 10.2-10.3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:88686 Archived-At: 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/