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

1 files changed, 1 insertions, 4 deletions

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 655c7496142..3b8c9628c3b 100644
--- 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