(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 2e60df0..c4ac57e 100644 (file)
--- 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-")