From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Klaus Zeitler Newsgroups: gmane.emacs.devel Subject: Re: Don't change default-directory in gud.el? Date: Wed, 03 Nov 2004 08:29:17 +0100 Message-ID: References: <16776.11051.715258.594965@farnswood.snap.net.nz> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1099467025 9300 80.91.229.6 (3 Nov 2004 07:30:25 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 3 Nov 2004 07:30:25 +0000 (UTC) Cc: Nick Roberts , emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Nov 03 08:30:09 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CPFaq-0005Tq-00 for ; Wed, 03 Nov 2004 08:30:09 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CPFiv-0006P7-V1 for ged-emacs-devel@m.gmane.org; Wed, 03 Nov 2004 02:38:30 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1CPFim-0006Nh-0X for emacs-devel@gnu.org; Wed, 03 Nov 2004 02:38:20 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1CPFil-0006NA-Gw for emacs-devel@gnu.org; Wed, 03 Nov 2004 02:38:19 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CPFil-0006N3-D2 for emacs-devel@gnu.org; Wed, 03 Nov 2004 02:38:19 -0500 Original-Received: from [192.11.226.161] (helo=hoemail1.lucent.com) by monty-python.gnu.org with esmtp (Exim 4.34) id 1CPFaO-0007Ju-EU for emacs-devel@gnu.org; Wed, 03 Nov 2004 02:29:40 -0500 Original-Received: from nbgif1.de.lucent.com (h135-246-31-82.lucent.com [135.246.31.82]) by hoemail1.lucent.com (8.12.11/8.12.11) with ESMTP id iA37Ta79002656; Wed, 3 Nov 2004 01:29:37 -0600 (CST) Original-Received: from sfsws1.de.lucent.com (sfsws1 [135.246.31.38]) by nbgif1.de.lucent.com (8.11.7p1+Sun/8.11.7) with ESMTP id iA37TVI10125; Wed, 3 Nov 2004 08:29:35 +0100 (MET) Original-Received: from sfsw51.de.lucent.com (sfsw51 [135.246.123.35]) by sfsws1.de.lucent.com (8.11.7p1+Sun/8.8.5) with ESMTP id iA37THe14600; Wed, 3 Nov 2004 08:29:20 +0100 (MET) Original-Received: (from kzeitler@localhost) by sfsw51.de.lucent.com (8.11.7p1+Sun/8.8.8) id iA37TH218931; Wed, 3 Nov 2004 08:29:17 +0100 (MET) X-Authentication-Warning: sfsw51.de.lucent.com: kzeitler set sender to kzeitler@lucent.com using -f Original-To: Stefan X-Flame: I firmly believe that lesbian people are unpleasant. In-Reply-To: (Stefan's message of "Tue, 02 Nov 2004 22:37:00 -0500") User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (usg-unix-v) 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: main.gmane.org gmane.emacs.devel:29359 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:29359 >>>>> "Stefan" == Stefan writes: Stefan> >> Currently, in gud.el, the default-directory of the GUD buffer gets set >> from the pathname (if any) of the program to be debugged. This is not >> consistent what happens if gdb is invoked from the command line, where >> the working directory remains unchanged. Stefan> Stefan> I think the problem is not so much about whether Emacs does or Stefan> doesn't do something, but about how much work is needed to get the Stefan> other behavior. In the case of the chdir, it's actually Stefan> surprisingly difficult to undo the chdir, so I completely agree Stefan> that it should be removed. Actually I think in most cases it's what the user wants, but since this behavior has bothered me every once in a while, I've been using the following modification for gud-common-init: ;; Set the dir, in case the buffer already existed with a different dir. ;; (setq default-directory dir) (setq default-directory (or gud-default-directory dir)) with the following definitions for gud-default-directory: (defvar gud-default-directory nil "*Default directory for debugging process. Note that the directory must end with a '/'.") (defun gud-set-default-directory (dir) "*Set a new default directory for debugger process." (interactive (list (read-file-name "GUD default directory: " nil default-directory t))) (if (file-directory-p dir) (message "%s" (setq gud-default-directory (expand-file-name (file-name-as-directory dir)))) (message "Directory '%s' does not exist"))) (defun gud-show-default-directory () "*Show default directory for debugger process." (interactive) (message "GUD default directory: %s" gud-default-directory)) -- ------------------------------------------ | Klaus Zeitler Lucent Technologies | | Email: kzeitler@lucent.com | ------------------------------------------ --- Subtlety is the art of saying what you think and getting out of the way before it is understood.