Mercurial > emacs
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