From: Nick Roberts <nickrob@snap.net.nz>
Date: Sat, 12 Apr 2008 13:14:56 +0000 (+0000)
Subject: (gud-tooltip-tips): Use tooltip-event-buffer
X-Git-Tag: emacs-pretest-22.2.90~181
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcb96719b37029024876fca1f65eab69d32aa6d8;p=emacs.git

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

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