[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gud.el
diff -c emacs/lisp/progmodes/gud.el:1.73 emacs/lisp/progmodes/gud.el:1.74
*** emacs/lisp/progmodes/gud.el:1.73    Wed Nov 16 00:55:52 2005
--- emacs/lisp/progmodes/gud.el Wed Nov 16 11:26:34 2005
***************
*** 371,376 ****
--- 371,382 ----
  (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,393 ****
  
    (speedbar-add-expansion-list '("GUD" gud-speedbar-menu-items
                                 gud-speedbar-key-map
!                                gud-expansion-speedbar-buttons)))
  
  (defvar gud-speedbar-menu-items
    '(["Jump to stack frame" speedbar-edit-line
--- 393,404 ----
  
    (speedbar-add-expansion-list '("GUD" gud-speedbar-menu-items
                                 gud-speedbar-key-map
!                                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