From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 26 Oct 2002 22:37:04 +0000 (+0000)
Subject: (gdb): Pass default-directory to GDB via -cd option.
X-Git-Tag: ttn-vms-21-2-B4~12716
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3def0d249326998b8353178cf14088f4b890e2b4;p=emacs.git

(gdb): Pass default-directory to GDB via -cd option.
---

diff --git a/lisp/gud.el b/lisp/gud.el
index c871a35f192..4ce4f973134 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -405,7 +405,9 @@ The directory containing FILE becomes the initial working directory
 and source-file directory for your debugger."
   (interactive (list (gud-query-cmdline 'gdb)))
 
-  (gud-common-init command-line nil
+  (gud-common-init command-line
+		   #'(lambda (file args)
+		       `("-cd" ,(expand-file-name default-directory) . ,args))
 		   'gud-gdb-marker-filter 'gud-gdb-find-file)
   (set (make-local-variable 'gud-minor-mode) 'gdb)