diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2009-07-28 01:47:44 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2009-07-28 01:47:44 +0000 |
| commit | 92491c14be24837ca8cff20e6945eb1063b0b32d (patch) | |
| tree | 2a110b8bd8403e4fd60b97fe3a9db9887cd7360e /lisp/progmodes/gud.el | |
| parent | b85157feb0b76ebeedf4c8a617aa99960ce72d59 (diff) | |
| download | emacs-92491c14be24837ca8cff20e6945eb1063b0b32d.tar.gz | |
(jdb): Add gud-pstar to dump object information.
(gud-menu-map): Adjust tooltip accordingly.
Diffstat (limited to 'lisp/progmodes/gud.el')
| -rw-r--r-- | lisp/progmodes/gud.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index bfb823d729a..f2e3a54459e 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -191,9 +191,11 @@ Used to grey out relevant toolbar icons.") (buffer-local-value 'gud-target-name gud-comint-buffer) "emacs") (eq gud-minor-mode 'gdbmi))) - ([print*] menu-item "Print Dereference" gud-pstar + ([print*] menu-item (if (eq gud-minor-mode 'jdb) + "Dump object" + "Print Dereference") gud-pstar :enable (not gud-running) - :visible (memq gud-minor-mode '(gdbmi gdb))) + :visible (memq gud-minor-mode '(gdbmi gdb jdb))) ([print] menu-item "Print Expression" gud-print :enable (not gud-running)) ([watch] menu-item "Watch Expression" gud-watch @@ -2296,7 +2298,8 @@ gud, see `gud-mode'." (gud-def gud-up "up\C-Mwhere" "<" "Up one stack frame.") (gud-def gud-down "down\C-Mwhere" ">" "Up one stack frame.") (gud-def gud-run "run" nil "Run the program.") ;if VM start using jdb - (gud-def gud-print "print %e" "\C-p" "Evaluate Java expression at point.") + (gud-def gud-print "print %e" "\C-p" "Print value of expression at point.") + (gud-def gud-pstar "dump %e" nil "Print all object information at point.") (setq comint-prompt-regexp "^> \\|^[^ ]+\\[[0-9]+\\] ") (setq paragraph-start comint-prompt-regexp) |