diff lisp/tooltip.el @ 48572:67d16fb6f6c8

(tooltip-gud-tips-setup): Remove. (tooltip-gud-debugger): Remove. (tooltip-gud-print-command): Use gud-minor mode instead of tooltip-gud-tips-setup and tooltip-gud-debugger.

--- a/lisp/tooltip.el	Thu Nov 28 21:25:38 2002 +0000
+++ b/lisp/tooltip.el	Thu Nov 28 21:26:25 2002 +0000
@@ -132,8 +132,7 @@
   :type 'boolean
   :tag "GUD"
   :set #'(lambda (symbol on)
-	   (setq tooltip-gud-tips-p on)
-	   (if on (tooltip-gud-tips-setup)))
+	   (setq tooltip-gud-tips-p on))
   :group 'tooltip)
 
 
@@ -185,10 +184,6 @@
   "Time when the last tooltip was hidden.")
 
 
-(defvar tooltip-gud-debugger nil
-  "The debugger for which we show tooltips.")
-
-
 
 ;;; Event accessors
 
@@ -228,23 +223,9 @@
     (setq show-help-function (if on 'tooltip-show-help-function nil))
     ;; `ignore' is the default binding for mouse movements.
     (define-key global-map [mouse-movement]
-      (if on 'tooltip-mouse-motion 'ignore))
-    (tooltip-gud-tips-setup)))
+      (if on 'tooltip-mouse-motion 'ignore))))
 
-(defun tooltip-gud-tips-setup ()
-  "Setup debugger mode-hooks for tooltips."
-  (when (and tooltip-mode tooltip-gud-tips-p)
-    (global-set-key [S-mouse-3] 'tooltip-gud-toggle-dereference)
-    (add-hook 'gdb-mode-hook
-	      #'(lambda () (setq tooltip-gud-debugger 'gdb)))
-    (add-hook 'sdb-mode-hook
-	      #'(lambda () (setq tooltip-gud-debugger 'sdb)))
-    (add-hook 'dbx-mode-hook
-	      #'(lambda () (setq tooltip-gud-debugger 'dbx)))
-    (add-hook 'xdb-mode-hook
-	      #'(lambda () (setq tooltip-gud-debugger 'xdb)))
-    (add-hook 'perldb-mode-hook
-	      #'(lambda () (setq tooltip-gud-debugger 'perldb)))))
+
 
 ;;; Timeout for tooltip display
 
@@ -457,10 +438,6 @@
 This event can be examined by forms in TOOLTIP-GUD-DISPLAY.")
 
 
-(defvar tooltip-gud-debugger nil
-  "A symbol describing the debugger running under GUD.")
-
-
 (defun tooltip-gud-toggle-dereference ()
   "Toggle whether tooltips should show `* expr' or `expr'."
   (interactive)
@@ -481,8 +458,8 @@
 If TOOLTIP-GUD-DEREFERENCE is t, also prepend a `*' to EXPR."
   (when tooltip-gud-dereference
     (setq expr (concat "*" expr)))
-  (case tooltip-gud-debugger
-    (gdb (concat "server print " expr))
+  (case gud-minor-mode
+    ((gdb gdba) (concat "server print " expr))
     (dbx (concat "print " expr))
     (xdb (concat "p " expr))
     (sdb (concat expr "/"))