(gud-make-debug-menu): Make a child for the

local menu, for its menu bar, and the debug menu.

(gdb, sdb, dbx, xdb, perldb, pdb, jdb):
Use the history for arg-reading in the simple way.

diff --git a/lisp/gud.el b/lisp/gud.el
index 2de603bc079bac02c19d7d03417c988e29f523d2..edf4d028f0592ca35267c39c77465ed3436c68a9 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -360,7 +360,7 @@ and source-file directory for your debugger."
                                   (car gud-gdb-history)
                                 "gdb ")
                               gdb-minibuffer-local-map nil
-                              '(gud-gdb-history . 1))))
+                              'gud-gdb-history)))
 
   (gud-common-init command-line 'gud-gdb-massage-args
                   'gud-gdb-marker-filter 'gud-gdb-find-file)
@@ -670,7 +670,7 @@ and source-file directory for your debugger."
                                   (car gud-sdb-history)
                                 "sdb ")
                               nil nil
-                              '(gud-sdb-history . 1))))
+                              'gud-sdb-history)))
   (if (and gud-sdb-needs-tags
           (not (and (boundp 'tags-file-name)
                     (stringp tags-file-name)
@@ -1004,7 +1004,7 @@ and source-file directory for your debugger."
                                   (car gud-dbx-history)
                                 "dbx ")
                               nil nil
-                              '(gud-dbx-history . 1))))
+                              'gud-dbx-history)))
 
   (cond
    (gud-mips-p
@@ -1153,7 +1153,7 @@ directories if your program contains sources from more than one directory."
                                   (car gud-xdb-history)
                                 "xdb ")
                               nil nil
-                              '(gud-xdb-history . 1))))
+                              'gud-xdb-history)))
 
   (gud-common-init command-line 'gud-xdb-massage-args
                   'gud-xdb-marker-filter 'gud-xdb-find-file)
@@ -1270,7 +1270,7 @@ and source-file directory for your debugger."
                                             "-e 0")
                                         " "))
                               nil nil
-                              '(gud-perldb-history . 1))))
+                              'gud-perldb-history)))
 
   (gud-common-init command-line 'gud-perldb-massage-args
                   'gud-perldb-marker-filter 'gud-perldb-find-file)
@@ -1399,7 +1399,7 @@ and source-file directory for your debugger."
                                   (car gud-pdb-history)
                                 (concat gud-pdb-command-name " "))
                               pdb-minibuffer-local-map nil
-                              '(gud-pdb-history . 1))))
+                              'gud-pdb-history)))
 
   (gud-common-init command-line 'gud-pdb-massage-args
                   'gud-pdb-marker-filter 'gud-pdb-find-file)
@@ -1876,7 +1876,7 @@ between it and it's value."
                                   (car gud-jdb-history)
                                 (concat gud-jdb-command-name " "))
                               nil nil
-                              '(gud-jdb-history . 1))))
+                              'gud-jdb-history)))
 
   (gud-common-init command-line 'gud-jdb-massage-args
           'gud-jdb-marker-filter 'gud-jdb-find-file)
@@ -2365,12 +2365,11 @@ Obeying it means displaying in another window the specified file and line."
   "Make sure the current local map has a [menu-bar debug] submap.
 If it doesn't, replace it with a new map that inherits it,
 and create such a submap in that new map."
-  (if (and (current-local-map)
-          (lookup-key (current-local-map) [menu-bar debug]))
-      nil
-    (use-local-map (gud-new-keymap (current-local-map)))
-    (define-key (current-local-map) [menu-bar debug]
-      (cons "Gud" (gud-new-keymap gud-menu-map)))))
+  (use-local-map (gud-new-keymap (current-local-map)))
+  (define-key (current-local-map) [menu-bar]
+    (gud-new-keymap (lookup-key (current-local-map) [menu-bar])))
+  (define-key (current-local-map) [menu-bar debug]
+    (cons "Gud" (gud-new-keymap gud-menu-map))))
 \f
 ;;; Code for parsing expressions out of C code.  The single entry point is
 ;;; find-c-expr, which tries to return an lvalue expression from around point.