From: Nick Roberts <nickrob@snap.net.nz>
Date: Wed, 16 Nov 2005 11:26:34 +0000 (+0000)
Subject: (gud-speedbar-item-info): New function.
X-Git-Tag: emacs-pretest-22.0.90~5854
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e930091eb30562b0f7982de10d64de8fb4d9baec;p=emacs.git

(gud-speedbar-item-info): New function.
(gud-install-speedbar-variables): Use it to display data types
of watch expression as tooltips in speedbar.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 1c5eb90b7ae..31223ddc7a9 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