diff options
| author | Kim F. Storm | 2005-03-22 21:52:08 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-03-22 21:52:08 +0000 |
| commit | e7f876b4734b4263fe759a03860a90ce3de3e19f (patch) | |
| tree | b17ede2991cd8afa192a7ef60bc175e315b52743 | |
| parent | eac7d7eb948c6151421aad61a9c044999d10bd33 (diff) | |
| download | emacs-e7f876b4734b4263fe759a03860a90ce3de3e19f.tar.gz emacs-e7f876b4734b4263fe759a03860a90ce3de3e19f.zip | |
(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 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." | |||
| 477 | (string-match "^mouse-2" msg)) | 477 | (string-match "^mouse-2" msg)) |
| 478 | (setq mp (mouse-pixel-position)) | 478 | (setq mp (mouse-pixel-position)) |
| 479 | (consp (setq pos (cdr mp))) | 479 | (consp (setq pos (cdr mp))) |
| 480 | (car pos) (cdr pos) | 480 | (car pos) (>= (car pos) 0) |
| 481 | (cdr pos) (>= (cdr pos) 0) | ||
| 481 | (setq pos (posn-at-x-y (car pos) (cdr pos) (car mp))) | 482 | (setq pos (posn-at-x-y (car pos) (cdr pos) (car mp))) |
| 482 | (windowp (posn-window pos))) | 483 | (windowp (posn-window pos))) |
| 483 | (with-current-buffer (window-buffer (posn-window pos)) | 484 | (with-current-buffer (window-buffer (posn-window pos)) |