(tooltip-show-help-function): Ignore negative mouse

position values.

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 05ba204511a7526739dff211b226be35314c7c5d..6ed93a0e99efff333a489485283dcb7053b27377 100644 (file)
--- 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))