From: Richard M. Stallman Date: Wed, 8 Sep 1999 05:17:05 +0000 (+0000) Subject: (gud-make-debug-menu): Make a child for the X-Git-Tag: emacs-pretest-21.0.90~6841 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8261aae6ec2ad97e33734c8cfc3dda882e6a2946;p=emacs.git (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 2de603bc079..edf4d028f05 100644 --- 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)))) ;;; 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.