[Emacs-diffs] emacs/lisp/progmodes gud.el

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  09/07/28 01:47:44

Modified files:
        lisp/progmodes : gud.el 

Log message:
        (jdb): Add gud-pstar to dump object information.
        (gud-menu-map): Adjust tooltip accordingly.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gud.el?cvsroot=emacs&r1=1.163&r2=1.164

Patches:
Index: gud.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gud.el,v
retrieving revision 1.163
retrieving revision 1.164
diff -u -b -r1.163 -r1.164
--- gud.el      21 Jun 2009 12:08:53 -0000      1.163
+++ gud.el      28 Jul 2009 01:47:44 -0000      1.164
@@ -191,9 +191,11 @@
                                 (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-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)