gud.el gdb --cd and libtool

[Simon Josefsson]

The recent patch below breaks M-x gdb when using it with libtool
(e.g., M-x gdb RET libtool gdb file RET).  Given the earlier related
problem with --fullname (solved to my satisfaction now though), it
seems gud.el should be made a little bit more aware of libtool.  I'm
not sure exactly what the best solution would be though, but hopefully
the gud.el maintainers can come up with something.

(The error is that libtool rightly complains that the -cd option isn't
known.)

Index: gud.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gud.el,v
retrieving revision 1.160
retrieving revision 1.161
diff -u -p -r1.160 -r1.161
--- gud.el      18 Sep 2002 16:02:14 -0000      1.160
+++ gud.el      26 Oct 2002 22:37:04 -0000      1.161
@@ -405,7 +405,9 @@ The directory containing FILE becomes th
 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)