# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1176387894 0
# Node ID 15f6e5a53aff9e0f56e6e1a041e1d88dea135219
# Parent  4053aada294864dca621824191439e8246fb8305
(jdb): Add gud-print.
(gud-find-expr): Jdb prints the expression with the value, so
don't insert it in the output.

diff -r 4053aada2948 -r 15f6e5a53aff lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Thu Apr 12 14:24:22 2007 +0000
+++ b/lisp/progmodes/gud.el	Thu Apr 12 14:24:54 2007 +0000
@@ -2304,6 +2304,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.")
+
 
   (setq comint-prompt-regexp "^> \\|^[^ ]+\\[[0-9]+\\] ")
   (setq paragraph-start comint-prompt-regexp)
@@ -2853,7 +2855,9 @@
 	  (when (looking-at comint-prompt-regexp)
 	    (set-marker gud-delete-prompt-marker (point))
 	    (set-marker-insertion-type gud-delete-prompt-marker t))
-	  (insert (concat  expr " = ")))))
+	  (unless (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
+		      'jdb)
+	      (insert (concat  expr " = "))))))
     expr))
 
 ;; The next eight functions are hacked from gdbsrc.el by