changeset 60832:b39c6b2034fa

(tooltip-show-help-function): Ignore negative mouse position values.
author Kim F. Storm <storm@cua.dk>
date Tue, 22 Mar 2005 21:52:08 +0000
parents 74476de5b3b7
children ec5f051c1eb0
files lisp/tooltip.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/tooltip.el	Tue Mar 22 21:51:50 2005 +0000
+++ b/lisp/tooltip.el	Tue Mar 22 21:52:08 2005 +0000
@@ -477,7 +477,8 @@
 	       (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))