# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1115102787 0
# Node ID 55735e23c27d012ab30abc1927ce345632e1c703
# Parent  71210632fecaf7cec22df8539ff5a3bee02832c9
(tooltip-gud-tips): Use gdb-define-alist.

diff -r 71210632feca -r 55735e23c27d lisp/tooltip.el
--- a/lisp/tooltip.el	Tue May 03 06:45:54 2005 +0000
+++ b/lisp/tooltip.el	Tue May 03 06:46:27 2005 +0000
@@ -119,8 +119,10 @@
 (defcustom tooltip-gud-tips-p nil
   "*Non-nil means show tooltips in GUD sessions.
 
-This allows you to display a variable's value in a tooltip simply by
-pointing at it with the mouse."
+This allows you to display a variable's value in a tooltip simply
+by pointing at it with the mouse.  In the case of a C program
+controlled by GDB, it shows the associated #define directives
+when program is not executing."
   :type 'boolean
   :tag "GUD"
   :group 'tooltip)
@@ -478,11 +480,10 @@
 		    (window-buffer (let ((mouse (mouse-position)))
 				     (window-at (cadr mouse)
 						(cddr mouse))))
-		  (when (boundp 'cc-define-alist) ; might be a Fortran program
-		    (let ((define-elt (assoc expr cc-define-alist)))
-		      (unless (null define-elt)
-			(tooltip-show (cdr define-elt))
-			expr)))))
+		  (let ((define-elt (assoc expr gdb-define-alist)))
+		    (unless (null define-elt)
+		      (tooltip-show (cdr define-elt))
+		      expr))))
 	    (let ((cmd (tooltip-gud-print-command expr)))
 	      (unless (null cmd) ; CMD can be nil if unknown debugger
 		(case gud-minor-mode