diff options
| author | Kim F. Storm <[email protected]> | 2005-03-22 21:52:08 +0000 |
|---|---|---|
| committer | Kim F. Storm <[email protected]> | 2005-03-22 21:52:08 +0000 |
| commit | e7f876b4734b4263fe759a03860a90ce3de3e19f (patch) | |
| tree | b17ede2991cd8afa192a7ef60bc175e315b52743 | |
| parent | eac7d7eb948c6151421aad61a9c044999d10bd33 (diff) | |
(tooltip-show-help-function): Ignore negative mouse
position values.
| -rw-r--r-- | lisp/tooltip.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/tooltip.el b/lisp/tooltip.el index 05ba204511..6ed93a0e99 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)) |