aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKim F. Storm2003-05-24 22:04:14 +0000
committerKim F. Storm2003-05-24 22:04:14 +0000
commit498eff1d31b2e6bb5f1c71e96c5a77fed92f1c93 (patch)
treeeb76280afb2234becfee58c30f6113ece43cc090 /src
parentfdbf2e9bc784c6f28a643eb38f55881b19b6710b (diff)
downloademacs-498eff1d31b2e6bb5f1c71e96c5a77fed92f1c93.tar.gz
emacs-498eff1d31b2e6bb5f1c71e96c5a77fed92f1c93.zip
(Fsun_menu_internal): Adapt to per-window fringes and scroll-bars.
Diffstat (limited to 'src')
-rw-r--r--src/sunfns.c6
1 files 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. */)
454 454
455 CHECK_GFX (Qnil); 455 CHECK_GFX (Qnil);
456 456
457 xpos = CtoSX (WINDOW_LEFT_MARGIN (XWINDOW (window)) + XINT(X_Position)); 457 xpos = CtoSX (WINDOW_LEFT_EDGE_COL (XWINDOW (window))
458 ypos = CtoSY (XWINDOW(window)->top + XINT(Y_Position)); 458 + WINDOW_LEFT_SCROLL_BAR_COLS (XWINDOW (window))
459 + XINT(X_Position));
460 ypos = CtoSY (WINDOW_TOP_EDGE_LINE (XWINDOW(window)) + XINT(Y_Position));
459#ifdef Menu_Base_Kludge 461#ifdef Menu_Base_Kludge
460 {static Lisp_Object symbol[2]; 462 {static Lisp_Object symbol[2];
461 symbol[0] = Fintern (sm_kludge_string, Qnil); 463 symbol[0] = Fintern (sm_kludge_string, Qnil);