(gud-tooltip-tips): Use tooltip-event-buffer

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 655c74961429bfb79d4b5a7166fadd01bf48bece..3b8c9628c3b1348df665736e1b99a075aa9ccee9 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3401,10 +3401,7 @@ This function must return nil if it doesn't handle EVENT."
          (if (and (eq gud-minor-mode 'gdba)
                   (not gdb-active-process))
              (progn
-               (with-current-buffer
-                   (window-buffer (let ((mouse (mouse-position)))
-                                    (window-at (cadr mouse)
-                                               (cddr mouse))))
+               (with-current-buffer (tooltip-event-buffer event)
                  (let ((define-elt (assoc expr gdb-define-alist)))
                    (unless (null define-elt)
                      (tooltip-show