changeset 77147:15f6e5a53aff

(jdb): Add gud-print. (gud-find-expr): Jdb prints the expression with the value, so don't insert it in the output.
author Nick Roberts <nickrob@snap.net.nz>
date Thu, 12 Apr 2007 14:24:54 +0000
parents 4053aada2948
children 8f99ea2c49f6
files lisp/progmodes/gud.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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