/[emacs]/emacs/lisp/progmodes/gud.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gud.el

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

revision 1.37 by nickrob, Mon May 9 21:55:33 2005 UTC revision 1.38 by nickrob, Mon May 16 06:42:37 2005 UTC
# Line 3215  This event can be examined by forms in G Line 3215  This event can be examined by forms in G
3215          (add-hook 'tooltip-hook 'gud-tooltip-tips)          (add-hook 'tooltip-hook 'gud-tooltip-tips)
3216          (define-key global-map [mouse-movement] 'gud-tooltip-mouse-motion))          (define-key global-map [mouse-movement] 'gud-tooltip-mouse-motion))
3217      (unless tooltip-mode (remove-hook 'pre-command-hook 'tooltip-hide)      (unless tooltip-mode (remove-hook 'pre-command-hook 'tooltip-hide)
3218      (remove-hook 'change-major-mode-hook 'tooltip-change-major-mode)      (remove-hook 'change-major-mode-hook 'gud-tooltip-change-major-mode)
3219      (remove-hook 'tooltip-hook 'gud-tooltip-tips)      (remove-hook 'tooltip-hook 'gud-tooltip-tips)
3220      (define-key global-map [mouse-movement] 'ignore)))      (define-key global-map [mouse-movement] 'ignore)))
3221    (gud-tooltip-activate-mouse-motions-if-enabled)    (gud-tooltip-activate-mouse-motions-if-enabled)
# Line 3253  If GUD-TOOLTIP-DEREFERENCE is t, also pr Line 3253  If GUD-TOOLTIP-DEREFERENCE is t, also pr
3253    (when gud-tooltip-dereference    (when gud-tooltip-dereference
3254      (setq expr (concat "*" expr)))      (setq expr (concat "*" expr)))
3255    (case gud-minor-mode    (case gud-minor-mode
3256      ((gdb gdba) (concat "server print " expr))      (gdba (concat "server print " expr))
3257      ((dbx gdbmi) (concat "print " expr))      ((dbx gdbmi) (concat "print " expr))
3258      (xdb (concat "p " expr))      (xdb (concat "p " expr))
3259      (sdb (concat expr "/"))      (sdb (concat expr "/"))
# Line 3293  This function must return nil if it does Line 3293  This function must return nil if it does
3293                        (tooltip-show (cdr define-elt))                        (tooltip-show (cdr define-elt))
3294                        expr))))                        expr))))
3295              (let ((cmd (gud-tooltip-print-command expr)))              (let ((cmd (gud-tooltip-print-command expr)))
3296                  (when (and gud-tooltip-mode (eq gud-minor-mode 'gdb))
3297                    (gud-tooltip-mode -1)
3298                    (message-box "Using GUD tooltips in this mode is unsafe\n\
3299    so they have been disabled."))
3300                (unless (null cmd) ; CMD can be nil if unknown debugger                (unless (null cmd) ; CMD can be nil if unknown debugger
3301                  (if (memq gud-minor-mode '(gdba gdbmi))                  (if (memq gud-minor-mode '(gdba gdbmi))
3302                        (if gdb-macro-info                        (if gdb-macro-info

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

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