Mercurial > emacs
changeset 62395:b4775e4a25b8
(gud-tooltip-mode): Add gud prefix to
tooltip-change-major-mode.
(gud-tooltip-print-command): Remove case where gud-minor-mode
is gdb ("--fullname").
(gud-tooltip-tips): Turn GUD tooltips off for this case and
explain to user.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 16 May 2005 06:42:37 +0000 |
| parents | ba0495c4ff91 |
| children | 197607499a29 |
| files | lisp/progmodes/gud.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Mon May 16 06:41:46 2005 +0000 +++ b/lisp/progmodes/gud.el Mon May 16 06:42:37 2005 +0000 @@ -3215,7 +3215,7 @@ (add-hook 'tooltip-hook 'gud-tooltip-tips) (define-key global-map [mouse-movement] 'gud-tooltip-mouse-motion)) (unless tooltip-mode (remove-hook 'pre-command-hook 'tooltip-hide) - (remove-hook 'change-major-mode-hook 'tooltip-change-major-mode) + (remove-hook 'change-major-mode-hook 'gud-tooltip-change-major-mode) (remove-hook 'tooltip-hook 'gud-tooltip-tips) (define-key global-map [mouse-movement] 'ignore))) (gud-tooltip-activate-mouse-motions-if-enabled) @@ -3253,7 +3253,7 @@ (when gud-tooltip-dereference (setq expr (concat "*" expr))) (case gud-minor-mode - ((gdb gdba) (concat "server print " expr)) + (gdba (concat "server print " expr)) ((dbx gdbmi) (concat "print " expr)) (xdb (concat "p " expr)) (sdb (concat expr "/")) @@ -3293,6 +3293,10 @@ (tooltip-show (cdr define-elt)) expr)))) (let ((cmd (gud-tooltip-print-command expr))) + (when (and gud-tooltip-mode (eq gud-minor-mode 'gdb)) + (gud-tooltip-mode -1) + (message-box "Using GUD tooltips in this mode is unsafe\n\ +so they have been disabled.")) (unless (null cmd) ; CMD can be nil if unknown debugger (if (memq gud-minor-mode '(gdba gdbmi)) (if gdb-macro-info