From 92491c14be24837ca8cff20e6945eb1063b0b32d Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 28 Jul 2009 01:47:44 +0000 Subject: [PATCH] (jdb): Add gud-pstar to dump object information. (gud-menu-map): Adjust tooltip accordingly. --- lisp/progmodes/gud.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index bfb823d729..f2e3a54459 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) -- 2.20.1