From e930091eb30562b0f7982de10d64de8fb4d9baec Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Wed, 16 Nov 2005 11:26:34 +0000 Subject: [PATCH] (gud-speedbar-item-info): New function. (gud-install-speedbar-variables): Use it to display data types of watch expression as tooltips in speedbar. --- lisp/progmodes/gud.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 1c5eb90b7a..31223ddc7a 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -371,6 +371,12 @@ t means that there is no stack, and we are in display-file mode.") (defvar gud-speedbar-key-map nil "Keymap used when in the buffers display mode.") +(defun gud-speedbar-item-info () + "Display the data type of the watch expression element." + (let ((var (nth (- (line-number-at-pos (point)) 2) gdb-var-list))) + (if (nth 4 var) + (speedbar-message "%s" (nth 3 var))))) + (defun gud-install-speedbar-variables () "Install those variables used by speedbar to enhance gud/gdb." (if gud-speedbar-key-map @@ -387,7 +393,12 @@ t means that there is no stack, and we are in display-file mode.") (speedbar-add-expansion-list '("GUD" gud-speedbar-menu-items gud-speedbar-key-map - gud-expansion-speedbar-buttons))) + gud-expansion-speedbar-buttons)) + + (add-to-list + 'speedbar-mode-functions-list + '("GUD" (speedbar-item-info . gud-speedbar-item-info) + (speedbar-line-directory . ignore)))) (defvar gud-speedbar-menu-items '(["Jump to stack frame" speedbar-edit-line -- 2.20.1