procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(jdb): Add gud-print.

Browse source 
(gud-find-expr): Jdb prints the expression with the value, so
don't insert it in the output.
This commit is contained in:
Nick Roberts 2007-04-12 14:24:54 +00:00
parent f501a00fae
commit 011dd48c57
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/gud.el
View file

@ -2304,6 +2304,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.")
(setq comint-prompt-regexp "^> \\|^[^ ]+\\[[0-9]+\\] ")
(setq paragraph-start comint-prompt-regexp)
@ -2853,7 +2855,9 @@ Obeying it means displaying in another window the specified file and line."
(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