From 161f8b5b777c5f14ff5ed6f4d21726890cdb5ac4 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 22 Feb 2005 09:42:23 +0000 Subject: [PATCH] (tooltip-show-help-function): Pass event to mouse-on-link-p so it can check selected window. --- lisp/tooltip.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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-") -- 2.39.2