Mercurial > emacs

diff src/sunfns.c @ 51203:f04f396f6f9f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 23a1cea22d13
children 695cf19ef79e
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);