Mercurial > emacs
changeset 42247:35dd407f04cd
(compute_tip_xy): If tooltip won't fit on the screen
to the left or to the right of the pointer, put it against
the left screen edge.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 21 Dec 2001 22:55:36 +0000 |
| parents | adee81b7bad2 |
| children | 1e967bcc8074 |
| files | src/xfns.c |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xfns.c Fri Dec 21 19:38:25 2001 +0000 +++ b/src/xfns.c Fri Dec 21 22:55:36 2001 +0000 @@ -11126,10 +11126,15 @@ if (INTEGERP (left)) *root_x = XINT (left); - else if (*root_x + XINT (dx) + width > FRAME_X_DISPLAY_INFO (f)->width) + else if (*root_x + XINT (dx) + width <= FRAME_X_DISPLAY_INFO (f)->width) + /* It fits to the right of the pointer. */ + *root_x += XINT (dx); + else if (width + XINT (dx) <= *root_x) + /* It fits to the left of the pointer. */ *root_x -= width + XINT (dx); else - *root_x += XINT (dx); + /* Put it left-justified on the screen--it ought to fit that way. */ + *root_x = 0; }