/[emacs]/emacs/lisp/tooltip.el
ViewVC logotype

Diff of /emacs/lisp/tooltip.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.53 by nickrob, Wed Apr 27 22:01:14 2005 UTC revision 1.54 by nickrob, Tue May 3 06:46:27 2005 UTC
# Line 119  position to pop up the tooltip." Line 119  position to pop up the tooltip."
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)
# Line 478  This function must return nil if it does Line 480  This function must return nil if it does
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

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26