Mercurial > emacs
changeset 48278:b82c4ff4d201
(gdb): Undo 10-26 change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 13 Nov 2002 11:40:15 +0000 |
| parents | a2b3ad4f6870 |
| children | 5335f4b4c07e |
| files | lisp/gud.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Wed Nov 13 11:36:26 2002 +0000 +++ b/lisp/gud.el Wed Nov 13 11:40:15 2002 +0000 @@ -405,9 +405,7 @@ and source-file directory for your debugger." (interactive (list (gud-query-cmdline 'gdb))) - (gud-common-init command-line - #'(lambda (file args) - `("-cd" ,(expand-file-name default-directory) . ,args)) + (gud-common-init command-line nil 'gud-gdb-marker-filter 'gud-gdb-find-file) (set (make-local-variable 'gud-minor-mode) 'gdb) @@ -2233,6 +2231,7 @@ (defun gud-common-init (command-line massage-args marker-filter &optional find-file) (let* ((words (split-string command-line)) (program (car words)) + (dir default-directory) ;; Extract the file name from WORDS ;; and put t in its place. ;; Later on we will put the modified file name arg back there. @@ -2256,6 +2255,7 @@ file-subst))) (filepart (and file-word (concat "-" (file-name-nondirectory file))))) (pop-to-buffer (concat "*gud" filepart "*")) + (setq default-directory dir) ;; Set default-directory to the file's directory. (and file-word gud-chdir-before-run