[Emacs-diffs] Changes to emacs/lisp/tooltip.el

[Nick Roberts]

Index: emacs/lisp/tooltip.el
diff -c emacs/lisp/tooltip.el:1.53 emacs/lisp/tooltip.el:1.54
*** emacs/lisp/tooltip.el:1.53  Wed Apr 27 22:01:14 2005
--- emacs/lisp/tooltip.el       Tue May  3 06:46:27 2005
***************
*** 119,126 ****
  (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."
    :type 'boolean
    :tag "GUD"
    :group 'tooltip)
--- 119,128 ----
  (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.  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,488 ****
                    (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 ((cmd (tooltip-gud-print-command expr)))
              (unless (null cmd) ; CMD can be nil if unknown debugger
                (case gud-minor-mode
--- 480,489 ----
                    (window-buffer (let ((mouse (mouse-position)))
                                     (window-at (cadr mouse)
                                                (cddr mouse))))
!                 (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