119 |
(defcustom tooltip-gud-tips-p nil |
(defcustom tooltip-gud-tips-p nil |
120 |
"*Non-nil means show tooltips in GUD sessions. |
"*Non-nil means show tooltips in GUD sessions. |
121 |
|
|
122 |
This allows you to display a variable's value in a tooltip simply by |
This allows you to display a variable's value in a tooltip simply |
123 |
pointing at it with the mouse." |
by pointing at it with the mouse. In the case of a C program |
124 |
|
controlled by GDB, it shows the associated #define directives |
125 |
|
when program is not executing." |
126 |
:type 'boolean |
:type 'boolean |
127 |
:tag "GUD" |
:tag "GUD" |
128 |
:group 'tooltip) |
:group 'tooltip) |
480 |
(window-buffer (let ((mouse (mouse-position))) |
(window-buffer (let ((mouse (mouse-position))) |
481 |
(window-at (cadr mouse) |
(window-at (cadr mouse) |
482 |
(cddr mouse)))) |
(cddr mouse)))) |
483 |
(when (boundp 'cc-define-alist) ; might be a Fortran program |
(let ((define-elt (assoc expr gdb-define-alist))) |
484 |
(let ((define-elt (assoc expr cc-define-alist))) |
(unless (null define-elt) |
485 |
(unless (null define-elt) |
(tooltip-show (cdr define-elt)) |
486 |
(tooltip-show (cdr define-elt)) |
expr)))) |
|
expr))))) |
|
487 |
(let ((cmd (tooltip-gud-print-command expr))) |
(let ((cmd (tooltip-gud-print-command expr))) |
488 |
(unless (null cmd) ; CMD can be nil if unknown debugger |
(unless (null cmd) ; CMD can be nil if unknown debugger |
489 |
(case gud-minor-mode |
(case gud-minor-mode |