mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

(gud-tooltip-mode): Require tooltip to be safe.

Browse Source 
(gud-tooltip-print-command): Add gdbmi case.
(gud-tooltip-tips): Call gdb-tooltip-print-1 first if there is
preprocessor info.
This commit is contained in:
Nick Roberts 2005-05-09 21:55:33 +00:00
parent 89d8189aa8
commit df94fa1e38
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/progmodes/gud.el
View File

@ -3207,6 +3207,7 @@ This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")
"Toggle the display of GUD tooltips."
:global t
:group 'gud
(require 'tooltip)
(if gud-tooltip-mode
(progn
(add-hook 'change-major-mode-hook 'gud-tooltip-change-major-mode)
@ -3253,7 +3254,7 @@ If GUD-TOOLTIP-DEREFERENCE is t, also prepend a `*' to EXPR."
(setq expr (concat "*" expr)))
(case gud-minor-mode
((gdb gdba) (concat "server print " expr))
(dbx (concat "print " expr))
((dbx gdbmi) (concat "print " expr))
(xdb (concat "p " expr))
(sdb (concat expr "/"))
(perldb expr)))
@ -3293,9 +3294,14 @@ This function must return nil if it doesn't handle EVENT."
expr))))
(let ((cmd (gud-tooltip-print-command expr)))
(unless (null cmd) ; CMD can be nil if unknown debugger
(if (eq gud-minor-mode 'gdba)
(gdb-enqueue-input
(list (concat cmd "\n") 'gdb-tooltip-print))
(if (memq gud-minor-mode '(gdba gdbmi))
(if gdb-macro-info
(gdb-enqueue-input
(list (concat
gdb-server-prefix "macro expand " expr "\n")
`(lambda () (gdb-tooltip-print-1 ,expr))))
(gdb-enqueue-input
(list (concat cmd "\n") 'gdb-tooltip-print)))
(setq gud-tooltip-original-filter (process-filter process))
(set-process-filter process 'gud-tooltip-process-output)
(gud-basic-call cmd))