From: Kim F. Storm <storm@cua.dk>
Date: Tue, 22 Feb 2005 09:42:23 +0000 (+0000)
Subject: (tooltip-show-help-function): Pass event to
X-Git-Tag: ttn-vms-21-2-B4~2161
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=161f8b5b777c5f14ff5ed6f4d21726890cdb5ac4;p=emacs.git

(tooltip-show-help-function): Pass event to
mouse-on-link-p so it can check selected window.
---

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 2e60df02459..c4ac57eac95 100644
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -488,7 +488,7 @@ MSG is either a help string to display, or nil to cancel the display."
 	     (setq pos (posn-at-x-y (car pos) (cdr pos) (car mp)))
 	     (windowp (posn-window pos)))
 	(with-current-buffer (window-buffer (posn-window pos))
-	  (if (mouse-on-link-p (posn-point pos))
+	  (if (mouse-on-link-p pos)
 	      (setq msg (concat
 		    (cond
 		     ((eq mouse-1-click-follows-link 'double) "double-")