From 64f3c670bd6a21cd71ed10831b2a4664960fd9be Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 3 May 2005 06:46:27 +0000 Subject: [PATCH] (tooltip-gud-tips): Use gdb-define-alist. --- lisp/tooltip.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/tooltip.el b/lisp/tooltip.el index 69f35a9997f..9bd35f05d11 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -119,8 +119,10 @@ position to pop up the tooltip." (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 @@ This function must return nil if it doesn't handle EVENT." (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 -- 2.39.2