# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1035671824 0
# Node ID 6ee65f935a8ca04a62832770585ea2faaa6ac633
# Parent  d7662618cd1154c2bfb921f6c019f8c2a4196dc0
(gdb): Pass default-directory to GDB via -cd option.

diff -r d7662618cd11 -r 6ee65f935a8c lisp/gud.el
--- a/lisp/gud.el	Sat Oct 26 22:36:09 2002 +0000
+++ b/lisp/gud.el	Sat Oct 26 22:37:04 2002 +0000
@@ -405,7 +405,9 @@
 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)