[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: gud.el gdb --cd and libtool
From: |
Richard Stallman |
Subject: |
Re: gud.el gdb --cd and libtool |
Date: |
Sat, 09 Nov 2002 06:55:08 -0500 |
Does this change fix it?
*** gud.el.~1.161.~ Mon Oct 21 15:26:25 2002
--- gud.el Sat Nov 9 05:53:52 2002
***************
*** 406,413 ****
(interactive (list (gud-query-cmdline 'gdb)))
(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)
--- 406,412 ----
(interactive (list (gud-query-cmdline 'gdb)))
(gud-common-init command-line
! #'(lambda (file args) args)
'gud-gdb-marker-filter 'gud-gdb-find-file)
(set (make-local-variable 'gud-minor-mode) 'gdb)
***************
*** 2233,2238 ****
--- 2232,2238 ----
(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,2261 ****
--- 2256,2262 ----
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