From 3def0d249326998b8353178cf14088f4b890e2b4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 26 Oct 2002 22:37:04 +0000 Subject: [PATCH] (gdb): Pass default-directory to GDB via -cd option. --- lisp/gud.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.5