# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1109065343 0
# Node ID 3af3548ad26dc6033d4f16f9c3e2facca0f07bda
# Parent  074d6632232c99975f5cad6d368a0ae250e8c3ea
(tooltip-show-help-function): Pass event to
mouse-on-link-p so it can check selected window.

diff -r 074d6632232c -r 3af3548ad26d lisp/tooltip.el
--- a/lisp/tooltip.el	Tue Feb 22 09:42:06 2005 +0000
+++ b/lisp/tooltip.el	Tue Feb 22 09:42:23 2005 +0000
@@ -488,7 +488,7 @@
 	     (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-")