Re: gud.el gdb --cd and libtool

[Richard Stallman]

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