From 498eff1d31b2e6bb5f1c71e96c5a77fed92f1c93 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 24 May 2003 22:04:14 +0000 Subject: [PATCH] (Fsun_menu_internal): Adapt to per-window fringes and scroll-bars. --- src/sunfns.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/sunfns.c b/src/sunfns.c index c1bae41c470..8f8bb102765 100644 --- a/src/sunfns.c +++ b/src/sunfns.c @@ -454,8 +454,10 @@ as a menu label. */) 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); -- 2.39.2