From: Kim F. Storm <storm@cua.dk>
Date: Tue, 22 Mar 2005 21:52:08 +0000 (+0000)
Subject: (tooltip-show-help-function): Ignore negative mouse
X-Git-Tag: ttn-vms-21-2-B4~1618
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7f876b4734b4263fe759a03860a90ce3de3e19f;p=emacs.git

(tooltip-show-help-function): Ignore negative mouse
position values.
---

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 05ba204511a..6ed93a0e99e 100644
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -477,7 +477,8 @@ MSG is either a help string to display, or nil to cancel the display."
 	       (string-match "^mouse-2" msg))
 	     (setq mp (mouse-pixel-position))
 	     (consp (setq pos (cdr mp)))
-	     (car pos) (cdr pos)
+	     (car pos) (>= (car pos) 0)
+	     (cdr pos) (>= (cdr pos) 0)
 	     (setq pos (posn-at-x-y (car pos) (cdr pos) (car mp)))
 	     (windowp (posn-window pos)))
 	(with-current-buffer (window-buffer (posn-window pos))