Mercurial > emacs

changeset 25601:5a25ec8539c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Wed, 08 Sep 1999 05:17:05 +0000
parents 6cea4c28fc1c
children fbb721a3bfaa
files lisp/gud.el
diffstat 1 files changed, 12 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gud.el	Wed Sep 08 05:14:39 1999 +0000
+++ b/lisp/gud.el	Wed Sep 08 05:17:05 1999 +0000
@@ -360,7 +360,7 @@
 				   (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 @@
 				   (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 @@
 				   (car gud-dbx-history)
 				 "dbx ")
 			       nil nil
-			       '(gud-dbx-history . 1))))
+			       'gud-dbx-history)))
 
   (cond
    (gud-mips-p
@@ -1153,7 +1153,7 @@
 				   (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 @@
 					     "-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 @@
 				   (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 @@
 				   (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 @@
   "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))))
 
 ;;; 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.