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) |
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 "/")) |
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 |