(gud-gdb-massage-args): Don't secretly add -fullname.

(gud-query-cmdline): Add --fullname to the user cmdline.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e1b495184ca44bcd1cf98dd66bc95a78a7f2e04e..28f9c38ebb0b3de45598c58b210855761d47bc75 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-09-11  Simon Josefsson  <jas@extundo.com>
 
+       * gud.el (gud-gdb-massage-args): Don't secretly add -fullname.
+       (gud-query-cmdline): Add --fullname to the user cmdline.
+
        * mail/smtpmail.el (smtpmail-default-smtp-server): Doc fix.
 
 2002-09-10  Richard M. Stallman  <rms@gnu.org>

diff --git a/lisp/gud.el b/lisp/gud.el
index 751d3d80dae477889277edbe345903c5e0373bda..70e9f1418fb0d0939d649a79c313a72f40b27f42 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -307,7 +307,7 @@ off the specialized speedbar mode."
 (defvar gud-gdb-history nil)
 
 (defun gud-gdb-massage-args (file args)
-  (cons "-fullname" args))
+  args)
 
 (defvar gud-gdb-marker-regexp
   ;; This used to use path-separator instead of ":";
@@ -383,7 +383,7 @@ off the specialized speedbar mode."
     (read-from-minibuffer
      (format "Run %s (like this): " minor-mode)
      (or (car-safe (symbol-value hist-sym))
-        (concat (or cmd-name (symbol-name minor-mode)) " " init))
+        (concat (or cmd-name (symbol-name minor-mode)) " --fullname " init))
      gud-minibuffer-local-map nil
      hist-sym)))