Mercurial > emacs
changeset 62048:55735e23c27d
(tooltip-gud-tips): Use gdb-define-alist.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Tue, 03 May 2005 06:46:27 +0000 |
| parents | 71210632feca |
| children | 471fca8487d3 |
| files | lisp/tooltip.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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