diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2005-05-03 06:46:27 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2005-05-03 06:46:27 +0000 |
| commit | 64f3c670bd6a21cd71ed10831b2a4664960fd9be (patch) | |
| tree | d6c1fe0644f9e89331fbd8d297e3bce7348fec60 /lisp/tooltip.el | |
| parent | 004e695aa56e5febbdd681361aff3cd1e7da88b1 (diff) | |
| download | emacs-64f3c670bd6a21cd71ed10831b2a4664960fd9be.tar.gz | |
(tooltip-gud-tips): Use gdb-define-alist.
Diffstat (limited to 'lisp/tooltip.el')
| -rw-r--r-- | lisp/tooltip.el | 15 |
1 files 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 |