Mercurial > emacs
changeset 51203:f04f396f6f9f
(Fsun_menu_internal): Adapt to per-window fringes and scroll-bars.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sat, 24 May 2003 22:04:14 +0000 |
| parents | 62a7506ec831 |
| children | 082b768216a0 |
| files | src/sunfns.c |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/sunfns.c Sat May 24 22:03:10 2003 +0000 +++ b/src/sunfns.c Sat May 24 22:04:14 2003 +0000 @@ -454,8 +454,10 @@ CHECK_GFX (Qnil); - xpos = CtoSX (WINDOW_LEFT_MARGIN (XWINDOW (window)) + XINT(X_Position)); - ypos = CtoSY (XWINDOW(window)->top + XINT(Y_Position)); + xpos = CtoSX (WINDOW_LEFT_EDGE_COL (XWINDOW (window)) + + WINDOW_LEFT_SCROLL_BAR_COLS (XWINDOW (window)) + + XINT(X_Position)); + ypos = CtoSY (WINDOW_TOP_EDGE_LINE (XWINDOW(window)) + XINT(Y_Position)); #ifdef Menu_Base_Kludge {static Lisp_Object symbol[2]; symbol[0] = Fintern (sm_kludge_string, Qnil);